SOFTWARE: WRITER'S LANGUAGE SPECIFICATION./ 
Revision ^ : June 09* 1975 



LANGUAGE^5P|CIFICATIQM, 
for 
SOFTWARE WRITER' S LANGUAGE 



?§f:0fr/09 



75/06/09 



Tab I e of Contents 



1 


►0 INTRODUCTION TO FIRST VERSION (DEC 73) . . . « 


>*••*•< 


1-1 


1 


.1 INTRODUCTION TO SUBSEQUENT VERSIONS ...... 


>•**•*< 


1-2 




l.lol SUMMARY OF CHANGES? REVISION 2 (0CT.»7't) 


> * * • • o < 


1-2 




1.1.2 SUMMARY OF CHANGES: REVISION 3 (DEC. «74) 




1-6 




1.1.3 SUMMARY OF CHANGES: REVISION 4 (JUNE 1975) 


• c © • • 4 


1-7 


2 


.0 LANGUAGE OVERVIEW 




2-1 


3 


.0 METALANGUAGE AND BASIC CONSTRUCTS ....... 




» 3-1 


3 


»! METALANGUAGE o»**«*»c*9***«**4 




• 3-1 


3 


-2 LEXICAL CONSTRUCTS ..... . . . , 


»•*•••< 


3-2 




3*2.1 ALPHABET .......... 


>•*•••< 


3-2 




3.2.2 IDENTIFIERS . 




3-3 




3.2.3 BASIC SYMBOLS .......... •■■■... . . . 




3-4 




3.2.4 CONSTANTS 


► 9*9*94 


3-4 




3.2.5 CONVENTIONS FOR BLANKS ........... 


,.....« 3-4 




3.2.6 COMMENTS . . . , 


» « 9 * 9 4 


3-5 


4 


» S W L f-YPES « e * * * 9 t> e 9 * o 99 e • 9 • * 4 


> • • • • 1 


4-1 


4< 


.1 TYPE DECLARATIONS «.••«.. ••••..:• . 


> * * 9 * . • « 


4-1 


4 


.2 DATA TYPES (TYPES) . . . . 




4-2 




4.2.0.1 Fixed or Variable Bound Types . • » • . 


» 9 • • 9 9 4 


4-3 




4.2.1 BASIC TYPES ................ 


ft * * * 9 4 


4-4 




4.2.1.1 Scalar Types • •••••••»•»•< 


ft • a 9 9 4 


4-4 




4.2.1.1.1 INTEGER TYPE ... 


ft 9 « * * • < 


4-4 




4.2.1.1.2 CHARACTER TYPE ........... 




4-5 




4.2.1.1.3 ORDINAL TYPE ............ 




1 4-5 




4.2.1.1.4 BOOLEAN TYPE ............ 


ft • « * 9 * 4 


4-6 




4.2.1.1.5 SUBRANGE TYPE «••..*•••••< 




► 4-6 




4©2*2 REAL TYPE « «..».♦• • - • < 


1 * * * 9 • i 


4-7 




4©2.3 POINTER TYPE e * , 




4-8 




4*2*3*1 Direct Pointer Types o • o * * • • • < 


ft * 9 9 9 : 9 < 


► 4-8 




4 c 2 e 3 • 2 Relative Pointer Types « • 9 » « * « i 




4-9 


^ 


»3 STRUCTURED TYPES «•««•••••»»«••< 




» 4-10 




4.3.1 SET TYPE ................. 




4-11 




4.3.2 STRING TYPE ••••«••••••••*•< 




» 4-12 




^•3«3 ARRAY TYPE ***«*9 9*9*****94 




► 4-13 




493*3*1 Array Dimensionality and Equivalence < 




4-14 




4*3*3*2 Alternate Spellings for Array Types • < 




4-14 




4 a 3 * 3 • 3 Packed Arravs a * • a » * « « a * * a < 




1 4-14 




4.3.4 RECORD TYPE ................ 




, 4-15 




4 • 3 a 4 a 1 Fixed Records a«a«AA<t«ft»»<i4 




, 4-16 




4*3*4*2 Invariant Records and Fixed Fields * < 


ft * * * .9 * 4 


4-16 




493*4*3 Variable Bound Records and Variable Boi 


ind Fields 4 


4-16 




493*4*4 Variant Records and Case Parts « « * < 




4-17 




4«3«4«5 Record Type Equivalence «*»•«»•( 


» 9 e 9 9 94 


4-17 




4*3*4*6 Adaptable and Bound Variant Record Types 


> • 9 9 9 i 


. 4-18 




4*3*4*7 'Packed Records* Alianed Fields a a * < 




1 4-18 




4*3*5 UNION TYPE * * * < 




4-19 




4*3*5*1 Restrictions on Union Membership * * < 


ft 9 9 99 9 4 


4-19 




4*3*5*2 Packed Unions * * * * • ****** 4 




4-20 



A-2 
75/06/09 



4 

4.4 S 
4.4 
4.4 
4.4 
4.4 

4.5 A 
4.5 
4.5 
4.5 

4 
4.5 
4.5 
4.5 

4.6 C 
4.6 
4.6 
4.6 

4.7 

4.8 F 
4.8 
4.8 

4.9 P 
4.10 

4.1 
4.1 
4.1 
4.1 
4.1 



.3.5.3 Un 
TGRAGE TY 
.1 STACK 
.2 SEQUEN 
.3 HEAP T 
.4 SEQUEN 
DAPTABLE 
,1 ADAPTA 
.2 ADAPTA 
.3 ADAPTA 
.5.3.1 Bo 
«4 ADAPTA 
.5 ADAPTA 
.6 ADAPTA 
ONTROL TY 
.1 LABEL 
.2 PRQCE 
.3 COPROC 
BOUND VAR 
ILE TYPES 
.1 FILE V 
.2 FILE V 
ACKING AN 
OTHER ASP 
0.1 INSTA 
0.2 VALUE 
COMPA 
FUNCT 
CONVE 



AR 
RE 
Va 
ST 
SE 
HE 



0.3 
Oc4 
0.5 



i on Ty 

PES- . 
TYPE 
CE TYP 
YPE . 
CE AND 
TYPES 
BLE ST 
BLE 
BLE 
und 
BLE 
BLE 
BLE 
PES . 
TYPE 
DURE T 
ESS TY 
IANT R 

• 

ARIABL 
ARIABL 
D ALIO 
ECTS 
NTANEO 
AND N 
RABLE 
ION-RE 
RTIBLE 



pe 



Equ i va I ence 



... 
... 

... 



HEAP SPACE 



RIN 
RAY 
COR 
r i a 
ACK 
QUE 
AP 



G 

D 
nt 

NCE 



Re 



coi 



YPE . . . 
P b • • . • 
ECORD TYPE 



ES 
E W 
NME 
F T 
US 
QN- 
AND 
TUR 
AN 



AR 
NT 
YP 
TY 
VA 
N 
N 
D 



6 

« * 

ES 

PES 

LUE 

QN- 

TYP 

CON 



TYPES 
COMPARABLE TYPES 

FQRMABLE TYPES 



5.0 VALUE CONSTRUCTORS AND VALUE CONVERSIONS 

5.1 VALUE CONSTRUCTORS .«.•...... 

5.1.1 CONSTANTS AND CONSTANT DECLARATIONS 
5.1. 1«1 Constants « • . « « • « • 

5.1.1.2 Constant Expressions « • 

5.1.1.3 Constant Declarations » • 

5.1.2 DEFINITE VALUE CONSTRUCTORS . 

5.1.3 INDEFINITE VALUE CONSTRUCTORS 

5.2 VALUE CONVERSION 

5.2.1 TYPE CONVERSION FUNCTIONS . . 

5.2.1.1 Basic Conversions . • • • 

5.2.1.2 Conformable Array and Record Conv 

5.2.1.3 String Conversions ...... 

5.3 FILE VARIABLE CONSTRUCTORS V 



6.0 VARIABLES* SEGMENTS* AND FILES . 

6.1 VARIABLES AND VARIABLE DECLARATIONS 

6.1.1 ESTABLISHING VARIABLES . . . 

6.1.2 TYPING OF VARIABLES 

6.1.2.1 Instantaneous Types ... 

6.1.3 EXPLICIT VARIABLE DECLARATIONS 

6.2 ATTRIBUTES ..... 

6.2.1 ACCESS ATTRIBUTE . . . ... 

6.2.2 STORAGE ATTRIBUTES AND LIFETIME 

6.2.2.1 Automatic Variables . . • 

6.2.2.2 Static Variables .... 






i on 



4-20 
4-20 
4-21 
4» 21 
4-22 
4-22 
4-22 
4-23 
4-24 
4-25 
4-25 
4-25 
4-26 
4-26 
4-26 
4-26 
4-27 
4-28 
4-28 
4-29 
4-30 
4-31 
4-31 
4-32 
4-32 
4-32 
4-32 
4-33 
4-33 

5-1 
5-1 
5-1 
5-1 
5-3 
5-3 
5-3 
5-5 
5-6 
5-7 
5-7 
5-8 
5-10 
5-11 

6-1 
6-1 
6-1 
6-2 
6-2 
6-4 
6-4 
6-5 
6-5 
6-6 
6-6 



A-3 
75/06/09 



6.2.2.3 Lifetime Conventions .«»..••••«••••• 6-6 

6.2.2.4 Lifetime of Format Parameters • «••••••.«• 6-6 

6.2.2.5 Lifetime of Allocated Variables .......... 6-7 

60202.6 Pointer Lifetimes . o o o o o oo o e o o o o o o o 6—7 

6.2.3 SCOPE ATTRIBUTES ..o.. o ..... . ••••••» 6—7 

6.2.4 FILE ATTRIBUTES 6-8 

6.3 INITIALIZATION 6-8 

6.3.1 INITIALIZATION CONSTRAINTS 6-8 

6.3.2 FILE VARIABLE INITIALIZATION ...... 6-9 

6. A SEGMENTS AND SEGMENT DECLARATIONS 6-9 

6.5 VALID COMBINATIONS OF ATTRIBUTES AND INITIALIZATIONS . . . 6-10 

6.6 VARIABLE REFERENCES . ...... 6-11 

6.6.1 POINTER REFERENCES 6-12 

6.6.1.1 Examples of Direct Pointer References .«••••• 6-12 

6.6.2 SUBSTRING REFERENCES , . . 6-13 

6.6.3 SUBSCRIPTED REFERENCE 6-15 

6.6.4 FIELD REFERENCES . . 6-16 

6.6.5 ADAPTABLE AND BOUND VARIANT REFERENCES ' . 6-17 

6.7FILE VARIABLES . « o . « . « . . . . . . . . . . . • .. . 6—18 

6.7.1 FILE SPECIFICATION 6-18 

6.7.1.1 File Attributes 6-19 

6.7.2 FILE VARIABLE INITIALIZATION 6-21 

7.0 PROGRAM STRUCTURE 7-1 

7.1 COMPILATION UNITS ..••.••......••.••... 7-1 

7*2 MODULES • • © © o © © © © © © © © « • © • © • © © © © • © © 7~*1 

7.3 DECLARATIONS AND SCOPE OF IDENTIFIERS ............ 7-2 

7.4 MODULE - STRUCTURED SCOPE RULES . . 7-3 

7© 5. BLOCKS © • •• • © © © © © © • ♦ • • © • © • •• • • • • • © 7~* 3 

7.6 BLOCK - STRUCTURED SCOPE RULES ........ 7-4 

7.7 SCOPE ATTRIBUTES . . 7-4 

7.7.1 ALIAS NAMES *.«•«..*.... .*..««.«». 7—5 

7.8 EXAMPLES OF SCOPE RULES . . 7-6 

7.9 DECLARATION PROCESSING 7-7 

7.9.1 BLOCK-EMBEDDED DECLARATIONS . 7-7 

7.9.2 COMPILATION-UNIT— EMBEDDED DECLARATIONS ........ 7-8 

7.9.3 ORDER OF EVALUATION OF DECLARATIONS .......... 7-8 

8.0 PROCS* COPROCS* AND LABELS ...••••'... 8-1 

8.1 PROCEDURE DECLARATIONS .................. 8-2 

8.1.1 PROC ATTRIBUTES . 8-3 

8.1.2 PARAMETER LIST . 8-4 

8.1.3 FUNCTIONS AND RETURN TYPE 8-5 

8.2 COPRQCS • 8-7 

8.3 LABEL DECLARATIONS ... ...••••« 8-10 

9.0 EXPRESSIONS 9-1 

9.1 EVALUATION OF FACTORS 9r-2 

9.2 OPERATORS ........ 9-4 

9.2.1 TYPE TESTING OPERATORS ................ 9-4 

9.2.2 NOT OPERATOR . 9-5 

9.2.3 MULTIPLYING OPERATORS 9-6 

9.2.4 SIGN OPERATORS 9-7 

9.2.5 ADDING OPERATORS 9-7 

9.2.6 RELATIONAL OPERATORS . ...... 9-9 

9.2.6.1 Comparison of Scalars and Reals »••••.••*• 9-9 



A-4 
75/06/09 



Comparison of Direct Pointers 
Comparison of Relative Pointers 
Comparison of Strings . * 
Relations Involving Sets 
Relations Involving Arrays 
Non-Comparabie Types . . 
Table of Comparable Types and 

9.2.7 EXPONENTIATING OPERATOR . . 

3 ORDER OF EVALUATION ...... 



9,2.6.2 
9.2.6.3 
9.2.6.4 
9.2.6.5 
9.2.6.6 
9.2.6.7 
9.2.6.8 



and 



10.0 
10.1 

10. 

10. 

10. 
10.2 

10 6 

10. 

10. 

10. 

10. 

10. 

10. 

10. 

10. 
10.3 

10. 
1 
1 

10. 

10. 

10. 

10. 

10. 

10. 

10. 

10. 
10.4 

10. 

10. 

1 
1 

10. 
10. 
10. 

1 
1 
1 

10. 
10. 
10.5 
10. 
1 
10. 
10. 
10. 



STATE 
ASSIG 

1.1 A 

1.2 S 

1.3 C 
STRUC 



2.1 B 

2.2 I 
2.3 
2.4 W 
2.5 

2.6 F 

2.7 C 

2.8 - 

2.9 P 
CONT 

3.1 P 
0.3.1 
0.3.1 

3.2 C 
3.3 
3.4 
3.5 
3.6 

3.7 R 

3.8 G 

3.9 E 
STORA 

4.1 A 

4.2 P 
0.4.2 
0.4.2 

4.3 P 

4.4 N 

4.5 R 
0.4.5 
0.4.5 
0.4.5 

4.6 A 

4.7 F 
INPUT 

5.1 
0.5.1 

5.2 C 

5.3 P 

5.4 R 



MENTS . 
NMENT STA 
SSIGNMENT 
UCCESSOR 
ONCATENAT 
TURED STA 
EGIN STAT 
F STATEME 
LOOP STAT 
HUE STAT 
REPEAT ST 
OR STATEH 
ASE STATE 
VALUE CON 
OINTER CO 
ROL STATE 
RQCEDURE 
.1 Cal I b 
.2 Cal I b 
REATE STA 
ESTROY ST 
ESUHE STA 
YCLE STAT 
XIT STATE 
ETURN STA 
OTO STATE 
MPTY STAT 
GE MANAGE 
LLOCATION 
USH STATE 
.1 User-D 
.2 System 
OP STATEM 
EXT STATE 
ESET STAT 
.1 Reset 
.2 Reset 
.3 Reset 
LLOCATE S 
REE STATE 
-OUTPUT S 
PEN STATE 
.1 Unspec 
LOSE STAT 
OSITIQNIN 
EAD-WRITE 



TE 
S 

AN 
IN 
TE 
EH 
NT 
EM 
E M 
AT 
EN 
ME 
FO 
NF 
ME 
CA 

y 
y 

TE 
AT 
TE 
EM 
ME 
TE 
ME 
EM 
ME 

D 
ME 
ec 
-M 
EN 
ME 
EM 
Se 
St 
He 
TA 
ME 
TA 
ME 
i f 
EM 
G 

S 



ME NT 

TO V 

D PR 

G AS 

ME NT 

ENTS 

S 

ENTS 

ENTS 

EM EN 

TS 

NTS 

RMIT 

ORMI 

NTS 

LL S 

Valu 

Ref e 

HE NT 

EMEN 

ME NT 

ENT 

NT 

ME NT 

NT 

ENT 

NT S 

ESIG 

NT 

S ar e 

anag 

T 

NT 

ENT 

quen 

ack 

ap 

TEME 

NT 

TEME 

NT 

i ed 

ENT 

STAT 

TATE 



Reco 



R 



su I 



Ty 



ARIABLES AND FUNCTIONS 
EDECESSOR ASSIGNMENT STA 
SIGNMENT . . 
S 



TS 



Y CASE STATEMENT 
TY CASE STATEMENTS 



TATEMENT . 

6 o e » « 

rence • • 

« © e ft • 

T « • • • 



ft ft ft 



TATEMENTS 
NATOR 



ft ft ft ft ft ft 



d Stack • 
ed Stack » 



« « « © e 



ce 



« • • « « • 
NT . . . . 



ft ft ft ft ft 



NTS 



At tr i outes 



o o « • « 



EMENTS 
MENTS 



ft 
ft ft 



EMENTS 



9-10 
9-10 
9-11 
9-11 
9-12 
9-12 
9-12 
9-14 
9-14 

10-1 
10-2 
10-3 
10-5 
10-5 
10-6 
10-6 
10-7 
10-8 
10-9 
10-10 
10-11 
10-14 
10-16 
10-17 
10-18 
10-18 
10-19 
10-20 
10-20 
10-21 
10-22 
10-22 
10-23 
10-24 
10-24 
10-25 
10-25 
10-26 
10-28 
10-28 
10-29 
10-29 
10-30 
10-31 
10-31 
10-31 
10-32 
10-32 
10-32 
10-33 
10-34 
10-34 
10-34 
10-35 
10-35 



10. 
10. 

10c 
10, 

10. 
10. 
10. 
10. 
10. 
10. 
10. 
10. 
10. 
10. 
10. 
10. 
10. 
10. 
10. 
10.5. 
10. 
10. 
10. 
10. 



5.4.1 

5.4.1. 

5 . 4o 1 . 

5.4.2 

5.4.2. 

5 . 4 » 2 « 

5.4.2. 

5.4.2. 

5. 4 . 2 o 

5.4.2. 

5.4.2. 

5.4.3 

5.4.4 

5.4.5 

5.4.6 

5.4.7 

5.4.8 

5.4.9 

5.4.10 

5 FORM 

5.5.1 

5,5.2 

5.5.3 

5 .-5 . 4 



Write (Par 

1 WRITE LI 

2 WRITE PA 
Put Elcmcn 

1 CHARACTE 

2 NON-NUME 

3 STRING E 

4 REAL ELE 

5 INTEGER 

6 SCALAR S 

7 POINTER 
Write Bina 
Write Sequ 
Write Dire 
Read Leg i b 
Read Par ti 
Read Binar 
Read Seque 

Read Dire 
AT CONTROL 
Page State 
Eject Stat 
Line State 
Skip State 



ti al ) 

NE ST 
RTIAL 
ts « 
R CLA 
RIC S 
LEHEN 
HE NT 
ELEME 
UBRAN 
ELEME 
ry St 
en t i a 
ct St 
le St 
al Le 
y Sta 
ntial 
ct St 



L 

AT 

LINE STATEMENT 



ine Statement 
EHENT . . . . 



SS 
CA 
T 

• 

NT 
GE 
NT 
at 
I 

at 
at 
gi 
te 
S 
at 



ment . 
ement 

ment . 

ment . 



« » . . * 

OUTPUT . . 
LAR WITH RADIX 
WITH RADIX 



ELEMENT 

ement 
St ateme 
ement 
ement 
ble State me 
men t • o 
tatement 
ement 
© • • 

« 

• t> • 
« • • 

• • 



11.0 STANDARD PROCEDURES AND FUNCTION 

11.1 STANDARD PROCEDURES 

11.1.1 ^TRANSLATE <S> D; T) ... 

11.1.2 tfSTRINGREP (V* D> WC/R3) 

11.1.3 #SETPAGESIZE KPRINT FILE VARIABLES <NUHBER OF LINES>) 
11.1.4 
#SETPAGEPRQC <<PRINT FILE VARIABLES <PROC EDURE REFERENCED 

11.2 STANDARD FUNCTIONS . 

11.2.1 #ABS(X) • . . 

11.2.2 tfSIGN(X) ................. 

11.2.3 tfSUCCCX) ....... . 

11.2.4 tfPREDIX) ..... • 

11.2.5 SINTEGER(X) . ............... 

11.2.6 SREAL(X) ...................... 

11.2.7 $CHAR(X) . . 

11.2.8 $STRING(L*SC*FILL3) ................ 

11.2.9 #STRLENGTH(X) 

11.2.10 .UOWERBOUND( ARRAY, N) ....••..«...••. 

11.2.11 #UPPER80UND{ARRAY* H) ... 

11.2.12 tfEOF(FILE) . . 

11.2.13 #COPROCID ............... 

11.2.14 #REL(P0INT6RC* PARENTAL!) . 

11.2.15 «PTR(RELATIVE_P0INTER[>PARENTAL3) 

11.2.16 tfUPPERVALUE(X) .... 

11.2.17 #LOWERVALUE(X) ............ 

11.2.16 #PREVIOUSCS,N) 

11.2.19 tfCURPAGESIZE KPRINT FILE VARIABLES ....... 

11.2.20 tfCURLINO (<PRINT FILE VARIABLE>) ......... 

11.2.21 tfCURSTRLENGTH (X) ............ 

11.2.22 SBOOLEAN (X) .......... 

11.3 REPRESENTATION DEPENDENT ... . 





A-5 


75/06/09 


. 10-35 




, 10-35 




, 10-36 




» 10-36 




, 10-37 




► 10-38 




, 10-39 




, 10-39 




, 10-40 




, 10-40 




, 10-40 




» 10-41 




, 10-41 




, 10-41 




, 10-42 




► 10-42 




, 10-43 




, 10-43 




, 10-44 




► 10-44 




, 10-45 




> 10-45 




> 10-45 




, 10-46 




, 11-1 




11-1 




11-1 




11-1 


) 11-2 


11-2 




11-2 
11-3 


4 


11-3 


. 11-3 




11-3 
11-3 
11-4 
11-4 










11-4 
11-4 
11-4 








11-5 
11-5 






11-5 
11-5 


4 


11-6 




11-6 
11-7 




11-7 


11-7 




11-7 
11-7 


< 


11-7 




, 11-8 



11.3.1 #LOC(<VARIABLE>> .• . 

11.3.2 tfSIZE(ARGUMEMT) • . 
11 • 3c 3 ffOFF$ET(U.»BASE) , • 
11.3.4 il'A AL IGNMEN T ( ARGUMENT, 



o o o o 

OFFSET* 



• © 

BASE) 



PROCEDURES 



11,4 SYSTEM DEPENDENT FUNCTIONS AND 

11.4.1 S6WE0R KFILE VARIA3LE>) 

11.4.2 #6WEQF KFILE VARIABLES , 

11.4.3 «6E0R (<FILE VARIABLES 

11.4.4 W6E0F (<FILE VARIABLES 

11.4.5 #6E0I (<FILE VARIABLES 



12.0 COMPILE-TIME FACILITIES ....... 

12.1 STATEMENTS AND DECLARATIONS 

12.1.1 COMPILE-TIME VARIABLES ...... 

12.1.2 COMPILE-TIME ASSIGNMENT STATEMENT 

12.1.3 COMPILE-TIME IF STATEMENT . . . . 

1 2 O 2 MACROS © 6 « 00 000 O O 

13.0 REPRESENTATION-DEPENDENT FEATURES . . 
1 3 o 1 DATA TYPES c o c © © o o • o o • • o o 

13olol CELL TYPE eooooooooooo 

13.1.2 CRAMMED TYPES . . . . . 

13.1.2.1 Alignment . . • • • , • » • • 

13.1.2.2 Wicitn , « , , , • * . . • . . 
13*2 STATEMENTS , , « . « « • •« . » • . 

14.0 MACHINE-DEPENDENT FEATURES 

14*1 DATATYPES , , , , , , . . • . , . . . 

14.2 MACHINE-DEPENDENT STORAGE ATTRIBUTES . 

14.3 CODE STATEMENT . . . . 

14.4 MACHINE INSTRUCTIONS ......... 





A-6 


75/06/09 


. . 11- 


-8 




11- 


-3 




11- 


-8 




11- 


-8 




11- 


-8 




11- 


-9 




11- 


-9 




11- 


-9 




11- 


-9 




11-9 




12- 


-1 




12- 


-1 




12- 


-1 




12- 


-2 




12- 


-2 




12- 


-3 




13- 


-1 




13-1 




13-1 


1 


13-1 


1 


13- 


-2 


. „■ 13-3 


. . 13- 


-3 


14- 


-1 


. o 14- 


•1 


. . 14- 


-1 


. . 14- 


-1 


• 4 


14- 


-2 



1-1 

SOFTWARE WRITER'S LANGUAGE SPECIFICATION 

75/06/09 
Revision 4 June 09* 1975 

1.0 INTRODUCTION TO FIRST VERSION (DEC 73) 
1 • lMIRaQU£IIQbl.IQ-£IRSI-i££RaiQIl'-.iQEC.Zai 



The purpose of this document is to define the Software 
Writers* Language to such a degree that the language can be 
understood* used* documented* and implemented by programmers 
experienced in the use of high-level b I ock~str uc tur ed languages* 
The language design and this document are products of the NCR~CDC 
Soft w are Writers 8 Language Committee* 

The Software Writers 1 Language will serve as the sole systems 
programming language for the development of the NCR-CDC 
Integrated Product Line (IPL) and is established to satisfy the 
bulk of the IPL systems programming requirements with 
machine-independent facilities that are we. I I structured and can 
be implemented efficiently and reliably* 

Further language developments can be expected In the areas of 
operating system* hardware* and debugging faci I it ies as the IPL 
becomes further defined© 

The goals for the Software Writers 1 Language include: 

—■It should furnisn high functional power for the problems 
encountered in the creation of compilers and other software 
systems* 

- It should be an "easy to use" language* giving the facility or 
function needed in a reasonably direct manner* 

-As much as possible* it should guard against the programmer^ 
use of programmatic elements in ways which might cause 
long-undetected errors* or errors if the program were carried 
fromonemachine to a different model # 

- The language should provide sufficiently high-level constructs 
to free the programmer from much of the burdensome details of 
program construction* and sufficient low-level constructs to 
get the job done* 

- SWL should yield effective object programs in computer systems 
not necessarily yet designed* 

- The language should encourage the creation of programs and data 
whose structure is immediately apparent to the reader* 



NCR/CDC PRIVILEGED 1*0 



1-2 

SOFTWARE WRITER'S LANGUAGE SPECIFICATION 

75/06/09 



Revision 4 June 09? 1975 



1.0 INTRODUCTION TO FIRST VERSION (DEC 73) 

1.1 INTRODUCTION TO SUBSEQUENT VERSIONS 

1*1 H4IRQaU£IlQM-IQ-aUfiSEfliiEIiI.ii£R2lIDIiS 

On acceptance of the first version of the language 
specification* the original Software Writers Language Committee 
was' dissolved and replaced by a SWL Language Control Board 
responsible for the future of the language* Concurrently* a SWL 
Language Log was started for purposes of recording and tracking 
requests for language changes and their eventual resolution by 
the board* The SWL specification will be periodically revised to 
reflect accepted language changes. In addition* minor 
corrections* rewordings* and clarifications will-be made* more 
examples* exemplary discussion and cross-referencing will be 
added. This will be a continuing process intended to transform 
an austere specification* directed to a limited audience* into a 
more generally usable reference document© 

1.1.1 SUMMARY QF CHANGES: REVISION 2 (0CT v f 74) 

Changes are listed below by topic and section numbers* 

- Constants (3.2*4) 

An explicit denotation for a base-10 radix has been added. 

- Formal Types (4.0 and 4.6) 

Procedures* labels* and coprocs are now classified as 
•control* types. Formal types include control types* adaptable 
types* and the newly introduced bound variant record types (cf. 
4.7)* which are included in the new syntax for SWL types. 

- Ordinal types (4.2.1.1.3) 

Ordinal type specifications are no longer restricted to appear 
only in type declarations. 

At least two ordinal constant identifiers must appear in the 
ordinal constant list. 

- Subrange Types (4.2«1.1.5) 

Variable-bound suoranges are no longer permitted. 

- Pointer Types (4.2.3) 

Read-only pointers — and the associated 'read 1 attribute for 
pointers — have been introduced. 
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Relative pointers may now be used with elements of strings* 
arrays* and records* as well as with elements of storage types© 

The definition of relative-pointer equivalence has been 
strengthened to include dependence on the f parental' types of the 
relative pointers* as well as tne types of the elements pointed 

tOc 

Specifications for the #£Si and #&£r functions have been 
revised to reflect the new definition of relative pointer 
equ i va I ence « 

- Arrays and Subscripted References (4*3*3 and 6*4*3) 

The treatment by SWL of arrays and suoscripted references has 
been clarified; an Q-d i mens iona I array may be declared and 
referenced as a vector of q - 1 dimensional arrays* for e x a m p I e 

- Record Types (4*3*.4) 

Syntax and semantics for record types have been simplified* 
and minor corrections made* 

Variant records are now legitimate fields of records of fixed 
type* 

Alignment may now be specified for tag fields of variants* 

"- Union Types (4e3*5) 

Union membership is now restricted to distinct* 'valued* 
types* The non-value types are files and heaps* arrays and 
stacks of non-value types* and records containing a fseld of 
non-value type* 

Union types may now be packedi 

- Adaptable Types (4*5) 

Syntax and semantics for adaptable arrays have been redefined 
and s i mp I i f I ed* 

Components of adaptable arrays may now be adaptable types* 

Correction to adaptable records now allows field selectors for 
adapt ao I e f i e I ds • 

- Procedures* Labels* and Coprocs (4»6 and 8*1) 

Formal types are now called * control 1 types* 
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1.0 INTRODUCTION TO FIRST VERSION (DEC 73) 
lolol SUMMARY OF CHANGES: REVISION 2 (OCT. ».?'*> 

Syntax for procedure type specifications and procedure 
declaration has been revised; procedure type identifiers may now 
be used in procedure declarations. 

- Bound Variant Record Types (V*7) 

Bound variant records may have their case parts 'fixed 8 to one 
of their constitutent variants* for purposes of space 
compaction* They are formal types* which may be used as formal 
parameters and must 'otherwise be referenced through pointers* 

--Repetition Factors (4*4*2* 10*4*1* 5*lo2) 

The spelling for repetitions has been changed to allow parsing 
without indefinite look^ahead* The definition of spans has been 
restricted to the use of type identifiers rather than types* 

-■Type* 'Constants and Variable Declarations (4*1* Sold* 6»1) 

Empty specifications are now allowed in these declarations* 
The Intent is to provide flexibility in program composition and 
revision. 

- Compilation Units* Modules* Blocks (7) 

Syntax and semantics have been reordered and expanded* 

Procedures as well as variables are allowed as prongs of 
comp I I at i on uni ts* 

Empty declarations are now allowed (for purposes of program 
composition and revision)* 

Order of evaluation of declarations (7o9*3) is governed solely 
by block s<t ructuring* 

- Express i ons (9) 

A cond i t i ona I -and operator (cand) and an uncond I t I ona l-or 
operator (uor) have been added* 

The pointer type test operator has been respelfed (: A :) and an 
analogous value type test operator ( : » : ) has been added* 

Order of evaluation of expressions (9*3) is now governed 
solely by the syntactic rules of composition and their implied 
precedence rules* 

- Assignment Statements (10*1) 



MCR/CDC PRIVILEGED 



1*0 



SOFTWARE WRITER'S LANGUAGE SPECIFICATION 

Revision 4 June 09> .1975 

1.0 INTRODUCTION TO FIRST VERSION (DEC 73) 
1.1.1 SUMMARY OF CHANGES: REVISION 2 (OCT. '74) 



1-5 

75/06/09 



f*t*tV*tl**f*tHMI<* 



«WW<y^M«VMAfMMNM4W 



A successor statement and a predecessor statement have been 
added • 

Stacks and sequences may now be assigned (to stacks and 
sequences respectively)! the restrictions on such assignments are 
called out ( 1 • 1 • 1 > point 8)o 

Restrictions on assignments involving read-only pointers and 
pointers to bound variant records are spelled out (10«1*1» points 
6* 7)o 

- Case Statements (10*2*8 and 10*2*9) 

Variant case statements have been removed* 

A value conformity case statement has been added* 

-Formal, and Actual Parameters (10«3»1) 

Restrictions on the use of bound variant records as actual and 
formal parameters are spelled out {points 7 and 3)* 

- Allocation Designators (1Q*4*1) 



Syntax and semantics for allocation designators have been 
expanded to illuminate the various species of 'fixers 1 used for 
adaptable^ and bound variants* 

- Standard Procedures and Functions (11) 

The ordering of the parameters of the ^translate procedure has 
been changed* 

The following functions now accept a type identifier as well 
as a variable as an arguments #strlength* #lowerboundj 
#upperbound> #size> #matignment* 

The functions #iowervalue and #uppervalue have been added* 

- Comp i I e-Ti me Facilities (12) 

The semantics of the phase-one facilities have been expanded 
to cover the treatment o f i den t i f i ers for comp i I e-t i me variables 
and macros* and the interpretation of macros and compile-time 
statements* 

- Representation-Dependent Features (13) 

The syntax of crammed types has been corrected to preclude the 
use of variable-bound crammed structures* and to spruce up the 
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specification of malignment* 

1.1.2 SUMMARY OF CHANGES* REVISION 3 (DEC* «74) 

Changes are listed below by topic and section numbers* 

- Constants (3*2.4) 

The $£&&£ conversion function is now a <character constant) 
rather than a <string term>* 

-■ Storage Types (4*4)* Storage Mgmt* Statements (10*4) 

Mechanisms for accessing elements of a stack other than the 
topmost one have been addede 

The use of a stack identifier followed by an up arrow to 
reference the top element of a stack is no longer permitted* 

A system-defined stack with automatic lifetime characteristics 
has been introduced* 

The EU£tl and £2£ statements have been changed to reflect the 
above changes* 

The £.££££ statement has been extended to permit stacks to be 
successively popped to a designated element and to permit all 
elements of a heap to be freed en-masse* 

A new built-in function for returning pointers to stack 
elements has been added (#££&£i2U&> 11*2.13)* 

- Pointer Comparisons (cf* 9*2.6*2 and 9*2*6*3) 

AM six relational operators may now be used with all direct 
and relative pointers except for pointers to file types* which 
are non-comparable* and pointers to control types* which may be 
compared for equality and inequality only* 

Files (4*8* 6*?,* 10*5) 

File types (4*8) -have been rounded out to include ELiQi files 
(formatting controlled oy procedures) and iiL£££ files (binary 
flleswith 'keyed 8 accessing' facilities)* 

File types are now data types (rather than formal types) which 
are associated with file variables ( 6 © 7 ) . File variables are 
used to access actual files* An actual file must be associated 
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with a file variable (by an 2££Q statement) in order to be 
accessedi 

•Value constructors 1 for file variables have been addled 
(5*2*3)* 

Input-Output st atements ' ( I 0. 5 ) have been extended and revised 
(in part) to reflect the new file types- and the new handling of 
file accessing© Subsequent revisions will complete these 
extensions© 

lei, 3 SUMMARY OF CHANGES: REVISION 4 (JUNE 1975) { 

This revision has its changes from Revision 3 specified by 
•change bars 1 in the right margin* except for deletions of entire 
paragraphs or sections* 

Change bars have been manually deleted where they indicate 
only trivial spelling corrections* clarifications/* re -wordings or 
r e-f ormatt ings • 

Major changes for this revision include: 

•■ The Q1JL&L2 facility of the language has been completely removed 
(but Qi^££2£ remain) * 

•• Input/output has been modified by the addition of formatted 
output and related functions* See 4*8* 6*7* and 10*5* 

• Varying strings and concatenation have been added to the 
language (cf* 4*3*2* 5*2*1*3;> 6*2*9*4* and 11*2. 8)* 

- The use of a procedure-type-identifier in the declaration of a 
procedure has been removed* 

- Restrictions have oeen placed on type-fixers in allocation 
designators for variant records (cf* 10*4*1 Allocation 
Designators)* 

•■ A £&&££ command for a storage variable prior to the first 
allocation into that storage variable is now required (cf* 
10*4)* 

- The spelling of access attributes and file attributes has been 
changed so they begin with the prefix character •#** 

- Structured conversions have been re-defined (cf* 5*2*1*2)* 
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- Label declared are required only In ISWL programs* and should 
not appear in SWL programs (cf« 8*3 Label Dec S ar a t i ons ) * 



- An 'alias 1 for Identifiers has 
( c f ♦ 7o7 f l Alias Names).* 



been added to the language 



NCR/CDC PRIVILEGED 



1*0 



2-1 

SOFTWARE WRITER'S LANGUAGE SPECIFICATION 

T5/06/09 
Revision 4 June 09* 1975 

2.0 LANGUAGE OVERVIEW 
2c0 LAMfiUAG&_QS£E&l£I£tf 



A SWL program consists of $£a£ei3en£$* which define actions 
involving programmatic elements* and fiSfilaLalLiflQS.* which define 
such elements* 

The definable elements include va£ia&i£S* £LQ.£SilyLLas.* iaksis* 
and £il£5* all having the characteristics that are conventionally 
associated with their names* Declarations of instances of these 
elements are spelled out in terms of an id£Q£i£i£L for the 
element and a JLX££ description * which defines the operational 
aspects of the element and* in many cases* indicates a 
referential notation In the case of a variable declaration* the 
type defines the set of values that may be assumed by the 
variableo Types may be directly described in such declarations* 
or they may be referenced by a type identifier* which in turn 
must be defined by an explicit type declaration© A small set of 
pre-defined types are provided* together with notations for 
defining n e w t . p e s in ternis of existing ones* 

In general* an element may not enter into operations outside 
the domain indicated by its type* and most dyadic operations are 
restricted to elements of equivalent types (e*g«* an integer may 
not be added to a real number)* Since the 'requirements for type 
equivalence are severe? these operational constraints are 
strict* Departures from them must be explicitly spelled-out in 
terms of fiflaiiflLSiaa £uilfiJLi£Q£« 

The fcasiji £&£££ include the pre-defined ia££a£L> £b&r* &ool£aQ 
and C£il types* all having their conventional connotations* value 
sets* and operational domains., The first three are ££aiar t;v£££, 
which define well-ordered sets of values — • as distinguished from 
real types* A scalar type may also be defined as an o££[£ri&i £x£§. 
by enumerating the identifiers which stand for its ordinal 
values* or as a SUDraQcje of another scalar type by specifying the 
smallest and largest values of the subrange* £aiQ£SL £^££s are 
included in the basic types* They represent location values* and 
other descriptive information* that can be used to reference 
Instances of variaoles and other SWL elements* Pointers are 
always bound to a specific type* and pointer variables may 
assume* as values* only pointers to elements of that type* 

SiLilfitSHfid £:£££& represent collections of components* and are 
defined by describing their component types and indicating a 
so-called stLkiaiULiEtS 2}£t!iad«> These differ in the accessing 
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discipline and notation used to select individual components* 

Five structuring methods are available: s.£t structure; SiLiQS 

structure* &LL&1 structure* LS&aLd structure and UQi&Q 
structure « 

A £&£ type represents all subsets of values of some scalar 
type* 



A S^£iQ 
va I ues o 

subst r i ngs i s 



Q<2 L1Q.& of length q represents all ordered Q-tuples of 
f character type* An ordered &~tuple of these values 
q) is called a §.Lik§.JLE.iQS« Motation for accessing 
s is provided© 



An &LL&1 fc££g represents a structure consisting of components 
of the same type* Each component is selected by an &LL&1 
££!§.££&£ consisting of an ordered set of q index values whose 
types are indicated in the array definition* 

A £S£&rci £v&e represents a structure consisting of a fixed 
number of components called fields* which may be of different 
types and which must be identified by tL&LA §.£ifi£&aLE« In order 
that the type of a selected field be evident from the program 
text (without executing the program) a field selector is not a 
computable value* but instead is an i dent i f i er un i que I y denoting 
the component to be selected* These component identifiers are 
declared in the record type definition* 

A XSCiSQt L££fi£d ££££ may be specified as consisting of 
several £3Li2Q£5» This implies that different variables* 
although said to be of the same type* may assume structures which 
differ in a certain manner* The difference may consist of a 
different numoer and different types of components* The variant 
which is assumed by the current value of a record variable is 
indicated by a component field which is common to all variants 
and is called the £&a field* 

A UQiSQ type represents a finite set of selectable* 
non-equivalent types* Union types permit one to define 
procedures whose parameters can be of more than one type and 
provide an alternative to variant record types* 
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S£exa3£ £Y£££ represent structures to which other variables 
may be added* referenced; and deleted under explicit program 
control* There are three storage types* each with its own 
management and access characteristics* A stunts £&£.£ represents a 
collection of components of the same type which is managed ( in a 
••last in - first out" manner) by the &ustl* £2£ and L££fi£ 
operations© Stack components are accessed through pointers 
constructed as by-products of these operations* SSSiiS.Q£a i^ESS 
and tie ££> £y„E£& represent storage structures whose components may 
be of diverse type* Components of S£3U£Q£SS, are managed through 
the operations of resetting to the first component and moving to 
the a§K.t component and are accessed through pointers constructed 
as by-products of these operations Space for components of hene, 
§.!&L&£££ must be explicitly managed by the operation of aiiQ.caJ,£ 
and LL&&* the components are accessed through pointers 

constructed as by-products of the allocate operation* 

Many-of the structured and storage types are described in 
terms of attributes* called feflUQdS^ that specify their shapes and 
extents* If the values of such attributes- can be determined by a 
perusal of the entire program* then the associated type is 
precisely defined* and is said to be of £i&sd £&££* otherwise* 
the type is. said to be of v^£xski£ &2!iaa £y.E£o In the latter 
case* the type represents a class of potential instances of fixed 
types* An "instantaneous" fixed type for these is established 
whenever the type declaration is elaborated during execution 
(upon entering the block in which the declaration occurs)* and 
persists over the scope of the declaration* 

Adaalakifi i^E.£S. are array* string* record* and storage types 
defined in terms of one or more indefinite bounds* They may be 
used as formal parameters of procedures — in which case the 
bounds of the actual parameters are assumed* or they may oe used 
to define pointers to structures which are meant to be explicitly 
fixed during execution of the program* through the use of 
so-called "allocation designators"* 

An austere set of £iJ.e £&££&* and •accessing methods** is 

provided* Actual files are accessed by means of £iie_va£iabJL£s* 
and must be explicitly associated with a file variable (through 
an fi££Q statement) in order to be accessed* 
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U&IiQi£g £aiU£ £aQ£t£li££aLS> which include specific type 

information/ may be used freely in expressions© IddsJCiQiifi £&lU£ 

£flQS.iClil£i.aC2. can be used only where their type is explicitly 

indicated by the context in which they occur© 

Variables can be declared with iniiiaii^StiSQ specifications 
and with certain jaittibiUiSSo IniliallzaiiaQ aaL£LfiS5.i2QS. are 
evaluated when storage for the variable is allocatedp and the 
resultant values are then assigned to the variable* The 
attributes include &£££££ a£i£ibut£s - whicn specify the purposes 
for which the variable may be accessed; §.£.&££&£ i*tt Libyiias — 
which specify when storage for the variable is to be allocated 
and when it is to oe freed; and S££E£ atiLltliiifiS -which specify 
the program span over which the declaration is to hold (the scope 
of the declaration)* Unless otherwise specified/ tne scope- of a 
declaration is the &ia£lS containing the declaration/ including 
all contained sub-blocks except for those which contain a 
re -declaration of tne identifier* 

fila£i&§. are portions of programs grouped together as either 
l2aaiQraQ£i blocks or £LS££^U£SS« The former are used primarily to 
define scope and to provide shielding* The latter also have 
identifiers associated with them/ so that the identified portions 
of the program can be activated on demand by- statements of. the 
language* 

A 2£0£g,du£§ is declared In terms of its identifier/ the 
associated program/ a set of attributes/ and a list of IfiLQial 
£a££01&£.a£S* Formal parameters are variable declarations which 
provide a mechanism for the binding of references to the 
procedure with a set of values and variables - the afitMSi 
R3££Qiat&£s - at the point of activation* Two methods of 
parameter binding are provided - £a!ir&Xr£3iU£ ar >d 
fiallzbirLfilaLaQafii they have their conventional connotations* 

A £iiQ£iiao is a procedure that returns a value of a specified 
type* These £&£U£Q::£:£££§. sire restricted to the basic types/ and 
are specified in the procedure declaration* 

Procedures may be used in the creation of £&&££££&&£&> which 
are distinct synchronous processes* Instead of the entire 
procedure being executed and then returning in line/ coprocesses 
allow partial execution of a set of procedures witn a single 
thread of control being passed back and forth amongst them 
through the £&S.ua& statement* Subsequent resumption of a 
coprocess causes execution to commence with the successor of the 
last executed resume statement of the coprocess* 

Variables and procedures sharing common attributes can be 
associated with aaaoiailJtS.* wnich are identified areas for the 
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storage and management of the elements associated with the 
segment* Segments are defined by segment declarations* and 
segment associations are specified in variable and procedure 
declarations (as a specified attribute)* 

In addition to their other programmatic aspects* blocks 
(together with segments and attributes) provide partial 
mechanisms for the shielding and sharing of variables and 
portions of programs© MfiSluJLflS (together with scope attributes) 
provide a mechanism for the shielding and sharing of 
declarations* Modules are declared in terms of a grouped set of 
declarations and a list of identifiers for elements declared 
within the module that can be referenced from without the 
module. All other identifiers are blocked off* Modules are 
primarily designed to permit program repack agings at the "source 11 
I anguage I eve I * 

££&££il!££t£.£ define actions to be performed* 

StL51£iSi££d s£a£SJng.Q£& are constructs composed of statement 
lists? Mala SiatfiffifiQiS provide for scope control and storage 
allocation for their constituent declarations; i£ S.£a££S£Q£§> 
provide for the conditional execution of one of a set of 
statement liscs* 1&2R £jta££!fl£Il£§L cause unbounded repetitions of 
their statement list; all lis* £aL* and L&egat statements control 
repetitive execution of their statement lists; ca^e statements 
conditionally select one of their component statement lists for 
execution; saQtanniit^ ■ can s£a£affi£Q££ select one of their 
component statement iists for execution* depending on the type or 
the value of a union variable* 

£2QiL£.&L E£&£SQiaQ£.3. cause the creation or destruction of 
execution environments* They provide for the activation of 
procedures; for the creation* resumption* and destruction of 
coprocessesj and for general changes in the flow of control* 

St&L&SS aanaaSffifiQt &£a££!BSQ££, provide mechanisms for pushing 

and popping stack components* moving forward and backward over 

components of sequences* and allocating and freeing storage for 
components of heaps* 

lQEUizailiBSl£— £ia£S(E£QtS provide mechanisms for associating 
(and de-associating) files with file variables (0£gQ and £las&)* 
for positioning files* for reading and writing files* and for 
explicitly formatting so-called v pr i nt ' f i i es f • 

Finally* a£SiaQEl£Q£ £tat£m&Qt;£ cause variables to assume new 
values* 

A SWL program is meant to be translated by a fiSQlEiiaJLiflQ 
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EL2S.&SS into a SWL object program* Qtlififii BXaaxaoiS. resulting 
from distinct compilations can be combined by a JLiQ&iQa ELJ1££S£ 
Into a single object program? and may undergo 'further 
t r ansf orma t i on> by a ia^diaa a£.a££§.S.* Into forms capable of 
direct Interpretation (execution) by members of the IPL I inee 

CfiSDEiiSziiaia £aailitiaiL' that are essentially extr a-l i ngu I s 1 1 c 
In nature* are used to control the compilation process and 
construct the program to be compiled: compile-time Jtaciafela ! 

daalaxatiaasL* compiie-time atatasiaQta' and maaxa £aaiJLLiias« \ 

Mechanisms for the Incorporation of some 
£aEL£S£DtaiiaQr£l£E£Q£laa£ £a£iiitias are provided* Their use may 
be dependent on the SWL compiler's allocation algorithms and on 
the target hardware design. The use of these facilities is 
restricted to procedures declared with the XfifiLliSfi attribute* The 
facilities include a aaii £)£££* which represents the smallest 
unit of. directly addressable storage! ataflffifid t^nas* which are 
memory-dependent structures Kith specified component bit-sizes 
and alignments? and methods for overriding po i n ter~t o-type 
equivalence r es tr i ct i ons * 

An extended set of fflaalliQazd&aaQdaQt £a£jLJLitiaS,> including 

native flats. ty.aas> staxa&a attxifeutas* and iQstxuatiaas* are to 

be provided for each machine for which SWL will generate object 
codes© The use of such facilities is restricted to the body of 
the so-called aada JLtatamaQi* . wh I ch ma y include SWL statements 
and declarations as well as native instructions* 
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3.1 H&IALANSUAS& 

In this specification* syntactic constructs are denoted by 
English words enclosed between angle brackets < and > These 
words also describe the nature or meaning of the construct; and 
are used in the accompanying description of semantics. 

Constructs not enclosed in angle brackets stand for 
themselves* 

The symbol *;= is used to mean "is defined as 10 * and the 
vertical bar ! is used to signal an alternative definition* 

An optional syntactic unit (zero or one occurrences) is 
designated by square brackets C and ] '• 

Indefinite repetition (zero or more occurrences) is designated 
by braces { and }♦ 

Exaaalas* 

The def ini ti on: 

< real number) n« <unscaled number) 

{ <sca I ed number) 

is read; "a real number is defined as either an unsealed number 
or a scaled number''^ 

The def ini ti ons 

<unscaled number) **q <numer a I >« <numer a I ) 
<numeral> *J* <digit) {<digit>} 

are read; u art unsealed number is a numeral followed by a period 
followed by a numeral; a numeral is a d i gi t . f o I I owed by zero or 
more digits". 

The def i ni t i on 

<scaled number) ::* <unscaled number >EC <s i gn>3 <numer a I > 
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it**jr>ae4*s***iAtr%t 



3«0 METALANGUAGE AND BASIC CONSTRUCTS 
i3.1 METALANGUAGE 

is read as; f, a scaled number is an unsealed number; followed by 
the letter f ES followed by an optional (zero or one) sign; 

followed by a numeral ,, « 

The angle brackets; square brackets; and braces are also 
elements of the language; and therefore are used in syntactic 
constructso Such syntactic occurrences of these symbols will be 
underscored when necessary* 

The def ini t ion: 

<attribute list> n* I <attribute > £ ; <at tr i bute>> 1 

Is read as; "an attribute list consists of an attribute followed 
by zero or more comma-separated atttributes; the entire set of 
attributes being enclosed in square brackets©" 

Words reserved for specific purposes in the language will. 
always be underscored* 

The definition: 

<array spec> : : - a£X&i£<i nd i ces>2 a£ <component type> 

Is read as; "an array spec is composed of the word 'array 5 
followed by indices enclosed in square brackets; followed by the 
word •of 1 followed by a component type© 11 

3.2 LEXI£AL-£QU£IRU£ia 

The lexical units of the language - identifiers* basic 
symbols; and constants - are constructed from one or more 
(juxtaposed) elements of the alphabet* 

3,2. 1 ALPHABET 



The alphabet consists of tokens from a subset of the 
256-valued ASCII character set: those for which graphic 
denotations are defined* 
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i3.2.1 ALPHABET 



<ASCII character> ::* <a I phabet> ! <unpr i n tab I e> 

<al phabet> : i« <letter> 
Kdigit) 

I <spec i a I mark> 
{<blanks> 
!<unused mark) 

} 6 t 

<letter> * : » A!BJCJD!e{F!6!HiISJ!K!L!M!N!0!P!Q!R;sJT!U{V!WSXJYJZ 
! a J b { c J d J e { f ! g { h ! i I j ! k J j i m J n ! o ! p ! q J r I s } t S u ! v } w ! x J y S z 

<digit> t:* Oil 52. 3 54 !5! 6J7S8S9 

<special mark) it* + {-! * [ / I . I ; ! : ! "! • 

J # J $ J _ J d J ? i ( ! ) J » J < ! > 

■' \ S £ . 3 S * .' ! 

<btanks> ::» 

<unused mark) ::^ £ U 5 { ! > 1 i!" ! % 

The meaning of 12, when occurring within a string term bounded 
by two single quotes ( e and ■ ) is a single quote mark as a part 
of the stringe Outside that context; it has the meaning of a 
null string (since nothing is bounded)* Thus; four single quote 
( i © e « * • • • • j indicates a string constant, with a value of a 
single quote mark o 



3©2©2 IDENTIFIERS 



Identifiers serve to denote constants* variables* procedures* 
and other programmatic elements of the language© 

identifier) ::* < I etter >{<f I I ower)} 

<follower> ::** <l et t er> ! <d i g i t>! _ US $ ! 3 

Identifiers are restricted to a maximum of 31 characters* and 
Identifiers that differ only by case shifts of component letters 
are considered to be identical* Identifiers must begin with a 
letter and may not contain embedded blanks (cf«* Conventions for 
Blanks below)* 
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3.0 METALANGUAGE AND BASIC CONSTRUCTS 
3.2.2 IDENTIFIERS 

x2 Henry Job# A_wor dy_ Ident i f i er • 

Is t^ch ar acter_must_be_a_ I e t ter 1 

number ^of^characters^must^not^exceed^thirtyone ! 

3*2.3 BASIC SYMBOLS 

Selected ident i f i e r s ; special marks; digraphs of special 
marks; and'other polygraphs are reserved for specific purposes in 
the language! e*g«p as operators* separators; delimiters; 
groupers* These so-called "basic symbols" will be introduced as 
they ari.se in the sequel « 

Identifiers reserved for use as basic symbols will be shown as 
underscored; lower-case words* 

3*2*4 CONSTANTS 

Constants are lexical constructs used to denote values of some 
of the elementary data types* Their spellings; and the data 
types for which constant denotations can be given; are described 
i n Sect i on 5*1©1* 



3*2*5 CONVENTIONS FOR BLANKS 



Identifiers; reserved words; and constants must not abut each 
other; and must not contain embedded blanks. Basic symbols 
constructed as digraphs or trigraphs may not contain embedded 
blanks© Otherwise; blanks may be employed freely; and have no 
effect outside of character constants and string constants - 
where they represent themselves* 
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3.2,6 COMMENTS 



Commentary strings may be used anywhere that blanks may be 
used except within character and string constants. 



<commentary strlng> ::» !, {<comment char act er>}" 

<comment character> ::= <any ASCII character other than 

double-quote and semicolon> 
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4.0 SWL TYPES 

*•<> sulixeles s 



SWL types are used to define operational domains and 
characteristics of variables (which take on values) and other 
pragrammatic elements*, SWL elements fall into two broad classes 
of types* 

<SWL type> *s* <data type> 

S <f o rma I t ype> 

<data type> ::* <type> "eft 4*2" 

<f orrrval ; type> n= <adaptabie type> "cf* 4©5 M 

Kcontrol type> "cf* 4*6" 

Kbound variant record type) f *cf© *t*7 u 

Data types (more briefly* types) are used to define sets of 
values that can be assumed by SWL variables* their operational 
domain and — ~\r\ many j^ses — -a notation for referencing such values 
(cf* 4.2># 

Formal types are used to define objects which must be 

referenced in an indirect manners they may be used as formal 

parameters of procedures and must otherwise be referenced through 

the use of a pointer mechanism© 

Adaptable types and bound variant record types are associated 
with data types whose preci se attributes are meant to be 
explicitly 'fixed 1 during execution of the program© 

Control types are associated with labels* procedures* and 
copro cesses* 

*#1 IXEfi-QEtLA&AHQJiS 

SWL provides a small set of pre-defined types* reserved 
identifiers for these* and notation for defining new types in 

terms of existing ones. 

Type declarations are used to introduce new types* and ! 
Identifiers for the newly declared types* J 

<type declaration> i:» £#££ C<type spec>{; <type spec)} ] 
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4.0 SWL TYPES 

4.1 TYPE DECLARATIONS 

<type spec) ::* <type identifier list> » <SWL type> { <empty> 

<type identifier list> ::= <identifier list> 

<identifier I i s t> ::* <i den t i f I er>0 <i dent I f i er >> 

Type declarations can be used for purposes of brevity* 
clarity* and accuracy* Once declared* a type may be referred to 
elsewhere in the program by its declared type identifier which* 
if properly chosen* can provide a reduction in errors associated 
with spelling-out type specifications* as well as mnemonic 
value* 

Data, types (more briefly* types) are used to define sets of 
values that may be assumed by variables (cf o 6 « ) « 

<data type> :j» <type> 

<type> ::=* <fixed or variable bound type> ! <file type> 

Fixed or variable bound types consist of: { 

a) basic types* which take on simple values; 2 

b) structured types* which define collections of components? 5 

c) storage types* which are used as repositories for col lections { 
*of components of various types* I 

File types define actual files of data meantto be manipulated J 
by Input-output operations© { 
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4* 2*0-o 1 Fixed or Variable Bound Types 



4«2©o«i Einfid^aL-JiaLiafeifi-fiauQil-.I^Eaa 



<fixed or variable bound type> na 



<bas 1 c type> : : =» 



<structured type> 



<real type> 
! <po i nter type> 
J <scalar type> i 



<i nteger type> 
<character type> 
<or d i na I t ype> 
<boolean type> 
<subrange type> 



<set type> 
J <union type> 
S . <aggregate type> 



<stor age type> : : » 



<string type> 

!,<array type> 
• . <r ecord type> 



<stack type> 
<sequence type> 
<heap type> 
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<variable bound type> 
<ftxed type> 
are Introduced* the latter denoting all types but the formere 
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4.0 SWL TYPES 
4e2.1 BASIC TYPES 



4.2ol BASIC TYPES 



Basic types define components that take on simple values* and 
are the only types that may be associated with 'returned 6 values 
of functions (cf. 8ol«3)t 



<basic type> : : » <scalar type> 

Kreal type> 
Kpointer type> 



Scalar types define w el I -ordered sets of values- for which the 
following functions are defined:' 

£U£S the succeeding value In the set; 

EL££l the preceding value in the set* <cf» 11«2* 3# . 11«2«4) 

<scalar type> :* a <integer type> 

Kcharacter type> 
i<ordinal type> 
J<boolean t y p e > 

Ksubrange type) 

4.2.1#X.l INTEGER TYPE 



<integer type> n= in££fl££t < * nteger type identifier) 

<lnteger type identifier) * s * < i dent I f i er> 

Integer type represents an Implementation-dependent subset of 
the integers* and is equivalent to the subrange (cf« 4*2»l«lt5) 
defined by 

where qI and aZ denote implementation-dependent integers* 

R££QU&£i&i£-_&E££&£ifia3L* assignments set membership tests all 
six relations^ additions subtractions multiplications quotients 
remainders exponentiations absolute values built-in-functions 
(eft 11). 
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4«2*1*1.2 CHARACTER TYPE 

4©2.1©1©2 CHARACTER TYPE 

<character type> ::« c&&£ J <char acter type identifier> 

<character type identifier> s:« < j dent i f i er > 

Character type defines the set of 256 values of the ASCII 
character set* and is equivalent to the subrange ( c f © 4 © 2 • 1 © 1 © 5 ) 
defined by 

$char (0) oo $ char (255) 

where " Schar " denotes the mapping function. from integer type onto 
character type (cf© Standard Functions* 11©2)© 

£££S^££ifeig__££££a£iaQ£ s ■ assignment* set membership test; all 
six relations* built-in function (eft 1 1 ) ♦ 

4o2*l*:U3 ORDINAL TYPE 

<ordinal type> ::= (<ordinal constant identifier list>) 

i <ordina( • type identifier> 

<ordina.I constant identifier I i s t > ::« 

<ordinal constant i dent i f i er >* <or d i na I constant identifier> 
«[*<ordinai constant identifier>> 

<ordinal constant identifier> *:=* <identifier> 
<ordinal type identifier> : * « <identifier> 

An ordinal type defines an ordered set of values by 
enumeration* in the ordinal list* of the identifiers which denote 
the values© Each of the identifiers (at least two) in the 
ordinal list is thereby declared as a constant of the particular 
ordinal type • 

R£Lffli5&i!li£_a£fiLa£i£Q£* assignment* set membership test* all 
six relations* built-in functions ( c f © 1 1 ) • 

Two ordinal types are equivalent if they are defined In terms 
of the same ordinal list© 

£&&01£l£ : The constants of the ordinal type "primary color" 
dec I ar ed by 

£X££ pr i mary^co I or * (red* green* blue) 

are denoted by "red"* "green* * and "blue"* and the following 
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4.2.1.1.3 ORDINAL TYPE 

relations hold: 

red < gr een 
red < b I ue 
gr een < b I ue 

A mapping from ordinals onto non-negative integers is provided 
by the JiQtSflfiL function (cf* Standard Functions* 11«2)* For 
the constants of the example* the following relations hold: 

tiQtSflSL (red) » 

*iQ££A££ (green) * 1 .- 

iia£sa^£ (blue) o 2 

The ordinal type declaration 

£i£E£ pr imary^co lor " « (red* green*, blue)* 

hot^color 3 (red* orange* yellow) 

would be In error because of the dual definition of the 
Identifier "red 11 as a constant of two different ordinal types* 

4#2.1.1t4 BOOLEAN TYPE 

<boolean type> ::= &221&&Q 

Kboolean type identifier> 

<boolean type identifier) ::** <identifier> 

Boolean type represents the ordered set of lf truth values"* whose 
constant denotations are £als,£ and ££U£* and is conceptually 
equivalent to the ordinal type specified by the ordinal list 

<£al&£>i£M£> 

R££liS&ik!£«-2£££a£ioQ&: assignment* set membership test* all 
six relations (£al&£ < £LU£)> sum* product* difference* symmetric 
difference* negation* built-in functions (cf* ll)e 

4,2.1. 1.5 SUBRANGE TYPE 



<subrange type> na <subrange type identifier> 

J < I ower >« #<upper> 

<lower> ::* <constant scalar expression) 
<upper> ::= <constant scalar expression) 
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4.2.1.1.5 SUBRANGE TYPE 

<subrange type ldentifier> ::» <i dent i f i-er > 

A subrange type represents a subrange of the values of another 
scalar type* defined by a lower bound and an upper bound. The 
lower bound must not be greater than the upper bound and both 
must be of equivalent scalar types© Two subrange types are 
equivalent if they have identical upper and lower bounds. An 
improper subrange type (i©e c p one that completely spans its 
•parent 1 range) is equivalent to its •parent 1 type© 

Equivalence rules are relaxed for subranges to permit values 
from a subrange and values from its parent range (or another 
subrange of its parent range) to be assigned to each other and to 
enter into the operations of assignment and comparison* and other 
dyad i c opera t i ons © 

E££ffii££ikl£_A££L3£i£QS* as for the parent type© 

£&££ non^negat i ve integer ® 0© 32767* 
letter « fi A*©©*Z 8 * 

color » (red* orange* yellow* green* blue)* 
hotcolor « redo©yellow* 
hue=*red©©b!ue* 
range ** -10© ©10 J 

The ordinal subrange type* "hue*" is an improper subrange of* and 
therefore equivalent to* its parent ordinal type* "color©" 



4©2©2 REAL TYPE 



<real type> ::= L£§l!<real type identifier^ 
<real type identifier> it« <identifier> 

The range and precision of real type is 
implementation-dependent© Conversion functions between real and 
integer type are provided (cf© Standard Functions* 11©2)© 

EfiLQliSSLifiLiS—aEatailflQ^ assignment* all six relations* 
addition* subtraction* multiplication* quotient* built-in 
f unct i ons (cf ©11 ) • 
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'j.2«3 POINTER TYPE 

^•2e3 POINTER TYPE 

Pointer types represent location values* and other descriptive 
information* that can be used to reference instances of SWL 
objects indirectly* 

<pointer type> :s» <direct pointer type> 

Krelative pointer type> 

Direct pointer types represent locations of instances of 
objects of SWL type 

Relative pointer types represent locations of components of 
objects. of* storage type or aggregate type relative to the 
variable of storage or aggregate type© 

ESCSiSSiUlS &R£La£IflQ£ : assignment* union membership (cf* 

9 • Z # 1 ) * all six relations except for pointers to file 
( non-compar ab I e ) and pointers to control types (comparable for 
equality and inequality only)* built-in functions (cf«ll)# 

Direct pointer types are introduced by an up arrow* followed 

by a SWL type to which the pointers are always bound) direct 

pointer variables may assume* as values* only pointers to that 
SWL type* 

<direct pointer type> : s * <pointer to type> 

J <f orma I po i nter> 

<pointer to type> n» A <flxed or variable bound type> { 

Kpointer to f I le> 

< P o inter to f t I e> * * » A <file type> 

<formal pointer> s s = <adaptable pointer> 

}<potnter to control> 
Kbound variant pointer> 

<adaptable pointer> :** A <adaptabie type> } 

<Pointer to control> ;i» *<control type> 

<bound variant pointer> JJs A <bound variant record type> J 

Formal pointers provide the sole mechanism for accessing 
objects of formal type* other than through fornal parameters of 
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4.0 SWL TYPES 

4 • 2 « 3 » 1 Direct Pointer Types 

procedures© In particular* adaptable pointers and bound variant 
pointers are used to access instances of adaptable variables and 
bound variant records whose type has oeen *fixed* by an aii&£2££ 
or a Q£&£ statement (of* Sections 10*4* 10 o 4<>3* 10o4#5)o 

See Section 1 « 1 * Assignment Statements* for rules governing 
pointer assignment 

Direct pointers are equivalent if they are defined in. term s of ! 
equivalent types* No pointer to type can ever be equivalent to a ! 
forma I po i nter « 

The following ancillary constructs are introduced for 
expository use elsewhere in the document* 

<Pointer to procedure) ::- <formal pointer) 
<pointer to coproc> it* <formal pointer) 
<pointer to label) ;:= <formal -pointer) 

<adaptable pointer to string) : : » <adaptable pointer) 

<adaptable pointer to array) : : - <adaptable pointer) 

<adaptable pointer to record) ::« <adaptaole pointer) \ 

<adapt?bl^ pointer to stack) * * = <adaptable pointer) 

<adaptable pointer to sequence) n« <adaptabfe pointer) 

<adaptable pointer to heap) ss a <adaptable pointer) 

Re I at i ve po i nter types represent relative locations (with 
respect to the beginning of some composite object) of components 
of such objects « 

<relative pointer type) *i* 

L£iC (<parenta I type) } ] A <ob ject type) 

<parental type) si» <storage type) 

Kaggregate type) 

<aggregate type) ::» <string type)l<array type)J<record type) 

< object type) ::» <type> 

Relative pointer types are equivalent If they are defined in 

terms of equivalent parental types and equivalent object types* 

If the parental type is not specified* a default* system-defined 
heap is assumed© 

Relative pointers provide three facilities not given by direct 
po i nter types : 
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4*2.3.2 Relative Pointer Types 

lc A relative pointer variable requires less space than a 
direct pointer variable* 

2 © A linked list or array of relative pointers -(or a similar 

pointer network) related to a parental variable is still 
•correct if that entire variable is assigned to another 
variable of the same parental type© 

3 • A relative pointer variable (or group of relative pointer 

variables) may be used to refer simultaneously to several 
variables of the same parental type where parallel 
information is contained (so long as the parental type is not 
a heap ) o 

Relative pointer values can be generated solely through the 
built-in function #rei (cfo 11#2«14) whose arguments are a 
pointer variable and an optional parental variable© 

Relative pointers cannot be used to access data directly© 
Such data must be accessed through a direct pointer generated by 
the built-in function #Ri£ (cf© 11©2©15) whose arguments are a 
relative pointer variable and an optional parenta (variable© 

i^Efi intrel ~ nal (heep#tipe) A rec#tipe* 
re'c#tipe »• £££2L£l 

fa i iDisafiO 

fc s §.££iQfl (20) o£ Chan* 

fwd : intrel* "relative pointers to records" 
bkwd * in££fl§£ "wi th i n stacks of heep#tipe" 
££££od f 

£&££ heeptftipe * fctaaa <L£R 100 &£ rectftipe)© 
£x&e latest * sJUfiii tl03 &f intrel ; 

"latest is a small stack of relative pointers which 
can point to records within heaps of heep#tipe" 

4©3 si&yayaEQ-ixEEs 

Structured types represent collections of components* and are 
defined by describing their component types and indicating a 
so-called s t£y.£j;u£i{U fllflltlfld* These differ in the accessing 
discipline and notation used to select individual components© 
Five structuring methods are available* set structure* string 
structure* array structure* record structure* and union 
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structure*, Each h( II be described In the sequelc 

structured type> ::= <set type> 

! <un i on type> 
Kaggregate type> 

<aggregate type> ::* <string type> 

Karray type> 
Krecord type> 

Aggregate types may be of variable bound type (cfe 4©2)« 

4*3*1 SET TYPE 

<set type> :;- £££ a£ <base type> 

l<settypeidentifier> 

<base type> ::=* <scalar type> 

<set type ident*fier> *J» <tdentlfier> 

A set type represents the set of all subsets of values of the 
base type* The number of elements defined by the base type mu*t 
be constrained "(consider* eog*> £e£ a£ iQJ;£a§L>° Its value ^ill 
be implementation dependent* but no less than 256 (to accommodate 

EfiLffli£&i&Ifi---2&£Ca£iaQ£* ass l Qnment* intersection, union* 
difference* symmetric difference^ negation* inclusion* identity* 

Set types are equivalent if they have equivalent base types* 
£&&aEl£ : The set* akcess* declared by 

£^E& akcess '» &&& a£ (no_read* no_write* no^execute) 

represents the set of the following subsets of values of its 
ordinal base type: 

Sakcess C 3 "the empty set" 

$akcess [no.read] 

Sakcess [no^write] 

Sakcess [no^executel 

Sakcess [no^read; no^write] 

$akcess [no.readi no.execute] 

Sakcess [no^wr i tei no^execute] 

Sakcess [no^read* no.writei no^executel 
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where the notation "Sakcess C « © o ] ,f denotes a JiHiua £&D£Jt£U£]L&£ 
(cf© Value Constructors/ Section 5©1) for the set type* akcess© 

4*3*2 STRING TYPE 

A string type represents ordered n -tuples of values of ! 

character type* Two string types are provided* fixed strings and I 

var yi ng s tr i ngs * ! 

<string type> : * =3 <fixed string> -- • 

! <varying string) 1 

! 1 Xstring type identifier) ! 

<fixed string) s:» s£.£iQ£ (<length>) a£ <character type) 5 

<varying string) ::« 1 

vs.i£iaa (<max I ength) ) o£ <character type) J 

<length> 52= <posittve integer expression) J 

<maxlength> ::* <positive integer expression) J 

<string type identifier) :sa <identifier) } 

A fixed string of length jj represents all ordered Q-tuples of S 

values of character type* A varying string whose maxlength is n i 

represents all fixed strings of length & (1 <* k <» q) together J 

with the QMii_&££iQa (see below)* { 

The £U£L£CLtL'-.-.l£Qattl of a string is defined as follows: The J 

current length of a varying string is defined to be a whenever S 

its value is a fixed string of length m and is defined to be zero 1 

whenever its value is the null string© The current length of a S 

fixed string is equal to its lengtho The function #£ii£&t£l£Ga£tl « 

(cf© 11©2©21) returns the current length of a string or a J 

varying string© The function #st£l£QflJt!l (cf© 11©2«9) returns J 

the maxlength of a varying string and the length of a fixed I 

string© 1 



A constant denotation for the null string (whose maxlength or ♦ 

length is zero) is provided! J 

<nui I str ing) ::■■•• { 

An ordered k-tuple of the values of a string or varying string J 

(1 O li O Q) is called a £Uj>S.t£iQ£« Notation for accessing J 

substrings is provided (cf© 6*4. 2> Substring References)© { 
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Two string types are equivalent if they are fixed strings of 
the same length* or are varying strings of the same maxlength* 
In the case of a variable length (or variable maxlength)* the 
length (or max length) is determined when the declaration is 
elaborated (cf« 4 o 2 Fixed and Variable-Bound Types)© 

E£LaiSS.illI§L-_2a£Li?.£ifiQ& s assignment* comparison (all six 
relational operators)* concatenation* and the built-in functions 
(cfe ch*ll)o Equivalence rules are relaxed to permit fixed 
strings and varying strings to enter jointly into these 
operations* independent of their current lengths* with truncation 
or right extension with blanks carried out when necessary© In 
addition* characters are treated as strings of length one (1) 
when they enter into these (but only these) operations (see also 
assignments in 1CU1* lOdob 10ol©3* and string-values as factors 
I n 9ol) o 

fcEaLaidS* Despite the special exceptions of the preceeding 
paragraph* the types s£l1q&j> vst£XQ2* ar >d £tiaL ar ^ n °t 
equivalent* In particular* a pointer to one of those types may 
not be assigned to a pointer to another of the types* or enter 
into other operations with pointers to those other types** nor may 
an actual parameter of one of the types be passed to a procedure 
where the corresponding formal parameter is a reference parameter 
of another type* 



4t3e3 ARRAY TYPE 



An array type represents a structure consisting of components 
of the same type© Each component is selected by an array 
selector consisting of an ordered. set of q index values whose 
types are indicated by the indices in the -defini t ioru 

<array type> JJ- [<pack i ng> 3<ar r ay type identifier> 

{ C<packi ng>3<arr ay spec> 

<array type identifier> : ■: « <identifier> 

<array spec> tu atxa^ £<indices>2 &£ <component type> 

<lndlces> jj« <i nde x>{* < i ndex>} 

<index>. *s*<scaiartype> 

!<scalar expression> • <> <scalar expression> 

<component type> ns <type> 

<packing> * : * < packing attributes> 
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w ah; w w iv /j y w « w w « a; « w w w w w w « « « « « w w « « // « .v « « « w w w w w w y « w w w w w w 

£££miS.S.itllg._a&£.LatifiQ£ l assignments comparison for equality 
and I nequa I i ty only* 

4*3*3*1 At£aii^QiDifia£iaQali£^-jaQd-£fliiIsiaifiQfia 

If the component type is not an array type and q indices are 
specified* then the array type has dimension q« If the component 
type is an array type of dimension m* and q indices are 
specified* then the array has dimension q 4- gj Two array types 
are equivalent if they have the same packing and dimensions* have 
equivalent component types* and corresponding indices are of 
equivalent types* For variable index ranges* the index type is 
defined by the values of its constituent expressions determined 
when the declaration is elaborated* 

4*3* 3*2 Aiia£aa£a_££alliaa£_£a£-ALLai.I*Ea£ 

There are 2 ** (q - 1) distinct spellings for specifying an, 
array of dimension Q e For example* for Q 3 3: 

!££££ tlntl af &LL&% Lint* in tl fi£ ahaL 
antax £int*intl a£ aL£a^ Lint J fi£ £UaL 
&LL&1 Lint* int* intl a£ sha£ 

.are' all equivalent spellings fori 

3££ax Lint! of'art^ LintJ q£ &££££ L»nt2 of ahat 

which is the spelling that precisely defines SWL's treatment of 

arrays* 

* 

Similar alternative spellings are allowed for referencing 
array components (cf* Subscripted References* 6*6*3)* 

4*3*3.3 EaahadLAtLaxa 

Packing attributes (cf* 4*9) are used to specify storage 
space — - access time tradeoffs for array components* Components 
of a packed array will be mapped onto storage so as to conserve 
storage space at the expense of access time* The array itself 
(the collection of components) is always mapped onto an 
addressable memory location (i«e** the array Is aligned) unless I 
the array itself is an unaligned element of a packed structure* I 



LKamela* 

san i>J « intaaat? 

NCR/CDC PRIVILEGED 4*0 



4-15 

SOFTWARE WRITER'S LANGUAGE SPECIFICATION 

75/06/09 
Revision 4 June 09* 1975 

4.0 SWL TYPES 

4»3*3«3 Packed Arrays 

£#££ hotness s a£££^ Ccolor] o£ non^negat i ve_i nteger * 
token^code » a££a.2£ C fiQ^Jl 3 a£ token m class> 
token^class » (alphas numeric* specials? others)* 
arrayl » aLLa^l Cl.olOO* 100*c200] a£ 100**300* 

il a'i P 100* 
12 » 100«o200> 
si » 100«>»30Q* 

* array 2 » attax C i 1 > • E J o£ si* 

array2b = a££ai N13 fi£ S££a£ CI23 of si* 
array3 a a££a& Ci**J3 of baaiaan* 
arrays » a££ax CloolO] a£ array3; 

The array types 'arrayl* 8 , array2* 1 and *array2b ? are 
equivalent* The f array3* type is of variable bounds (because its 
index range cannot be determined until run-time elaboration of 
the declaration)* This holds in a similar way for the ■arrays* 
type* since its component type is *array3o 8 

4*3.4 RECORD TYPE 



A record type represents a structure consisting of a fixed 
number .of components called lisidS* Fields are defined in terms 
of their types and associated figid S.£l££iLa£&& which are 
identifiers uniquely denoting that field among ail other fields 
of the record (cf 6«4«4* Field References)* 

£&£Si&£ii2i£_a£££S£i£Q£ : assignment* comparison for equality 
and inequality only; however* variant records (see below) ^an not 
be compared* 

Records are classified as being either £i&ad £££2£dS. or 

0£iaJals taw-ad ££sa£ds.* 

<record type> m« <fixed record type> 

Kvariable bound record type> 
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4o3c4*l £i££d_8.££S£ds 



Fixed records; which include both iQ^aCiaQt £££££$£ and 
ya£iaa£ £££&£dS£. will always be allocated a fixed amount of 
space* 

<fixed record type> n« <invari ant record type) 

J<varlant record type> 

4«3©f.2 lQia£iaQi-.&££fl£ds - aQSi«El2l£Ji-.£i£lclS 



An invariant record contains only £i&gd £l£!d£& which are 
fields of fixed type (cf© 4*2)© 

(invariant record type) »m» 

[ (packing)] (invariant record type identifier) 
tC(packtng)] (invariant record spec) 



(invariant record spec) ::= £££££]$ (fixed fields) (recend) 



(fixed fields) :i» <fixed field) £, (fixed field)} 

(fixed field) * : * (field selectors) : C (a I i gnment)] (f i xed type) 

(field selectors) ::* (field selector) £>(fie!d selector)} 

(field selector) *:- (identifier) 



(recend) : .: « £>]££££q^ 

^•3©4o3 .Ka£iabi£-a2iiQd-Bfisa£ds-aQd-Ya£ia&ia-BauQiI«£iaisis 



A variable bound record consists of zero or more fixed fields 
followed by one and only one &a£iaki£ feaUQd JLi£ld& which is a 
field of variable bound type (cfo 4.2)* 

(variable bound record type) n« 

C (pack i ng>] (v ar i ab I e bound record type identifier) 
I [(pack i ng)3(var i ab I e bound record spec) 



(variable bound record spec) n« 

£££S£dC(f i xed f i e I ds>> J(var i ab I e bound f i e I d)(r ecend) 



(variable bound field) *:« 

(field selector) t C(aiignment)](variable bound type) 

(recend) n* C>3££££Qd. 
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4 © 3 <> 4 © 4 Variant Records and Case Parts 

A variant record consists of zero or. more fixed fields 
followed by one and only one ccis.g. £&£.£*._ A case part is a 
composite field that may assume values of different types during 
execution of a program© It Is defined in terms of a £^3 £i£ld<2. 
and a list of the admissible types • (called va£.i&Q£.&* together 
with associated S,£l££tiflQ iiaiUSS* During execution^ tne value of 
the tag field determines the variant currently in use by being 
matched against the selection values associated with each 
variant* The variants themselves may consist of one or more 
fixed fields* or of 2ero or more fixed fields followed by one and 
only one case part© 

<variant record t y p e > s • * 

[<packing>3 <var iant record type identifier> 
!C<packing>] <variant record spec) 

<variant record spqg> : : » 

£££££.£1 C<flxed f i e I ds)* ] <case part> <recend> { 

<recend> :** Ci>]£.£££Qj£ • 

<case part> ss« £&&£ <tag field spec> &£ <variations> fia£&Qd 

<tag field spec> i s * 

<tag field selector) : E<a I i gnment)] <tag field type> 
<tag field selector) jj« <identifier> 
<tag field type) na <scalar type) 

<varlations> ::= <variation> O <variation>> 
<varlation) *:» »<selection va I ues>» <var i ant) 

<selection values) :i» <selection value) {;. <selection value)} 
<selection value) jjs 

<constant scalar express i on>[ © ©<constant sea 1 ar expression)] 

<variant) su [<fixed fields)] { 

JC<flxed fields)/] <case part) 

4© 3 ©4© 5 Sft£ftEd.ijt£s.Eaui)talfiD£a 

Two record types are equivalent if they have the same packing 
(cf© 4 © 9 ) * the same number of fields* identical field selectors; 
and equivalent types for corresponding fields* Two variants are 
equivalent if they have identical tag field selectors and 
equivalent tag field types* and if variants having identical 

NCR/CDC PRIVILEGED 4©0 



4-18 
SOFTWARE WRITER'S LANGUAGE SPECIFICATION 

75/06/09 
Revision 4 June 09* 1975 

4.0 SWL TYPES 

4»3e4o5 Record Type Equivalence 

field selectors and equivalent types are selected by the same 
selection valueso The type of a variable -bound field Is 
determined when the declaration Is elaborated© 

Two further types of records are adaptable record type and 
bound variant record type (cf* 4©5*3 and 4<>6*4)* These are 
formal types (cf« 4*0) which can oe used as formal- parameters of 
procedures but must otherwise be referenced through pointer 
mechanisms* 

4*3*4*7 Eafi!i£d-Bfi£aLii§.JL- AJLJLSQfilLEiSliiS 

Packing and alignment attributes (cfo 4*9) are used to 
spec I fy *stor age space -- access .time tradeoffs for fields of 
records* Fields of packed records are mapped onto storage so as 
to conserve space at the expense of time* However* a I I g n e d 
fields are mapped onto storage so as to be directly addressable* 
Records themselves (the collection of fields) are always aligned* J 
unless they are unaligned fields of a packed structure* • 

E&ameia* 



date •* L££&Ld day t 1**31* "date is an" 

••invariant record type 1 * 
month i Sltiaa <4> fif £&aL> 
year : 1900,. 2100 

Cfi££Q£l' 



status * £££fiLd age s 6**66* 

married* sex : kfifileaQ* 

££££Qd> 



red^book * £g£0££l name : string (3) &£ shall' 

"redbook might be a variable bound record type" 
status : status* 
scores J 3LL&XC 0** nil a£ date 
££££Qd> 



shape * (triangle* rectangle* circle)* 
angle « -180**180* 

figure » L£££Ld x* y* area J L£al* "figure is a variant" 

"record type" 
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4o3e4o7 Packed Records^ Aligned Fields 

££&£ s i shape &f 

» triangle » side : c.eaJL* inclination* anglel* 

ang I e2 2 ang I e 
» rectangle « si del* side 2* L&ai* sKew> angle3* 

angle 
a circle = diameters ceaj, 

4«3o5 UNION TYPE 

Union types represent a finite set of selectable* 
non-equ i va f ent types* and are used to define variables that can 
take on values of different types* 

Such- va I ues-of-the~moment can not be accessed in a direct 
manner* However* the type~o f ~the-moment of a union variable can 
be compared with the type of a variable* and its 
val ue-of-the-moment (or* optionally* a pointer to it) assigned to 
that variable* if the types match (cfo Type Testing Operators 
and Conformity Case Statements)* so that a program branch 
appropriate to values of that type can oe executed* 

<union type> : * 3 [<packing>3 uaiaQ (<members>) 

<members> *:» <type list> 

<type fist> * * * <type> {* <type>> 

£&L!DJL£SJL&lS. o&£L&iiQ.Q&s assignment* union membership (cfo 

Type Testing Operators* 9©2ol)o In addition* union variables may 
be used in conjunction with Conformity Case statements (cfo 
10«2«8* 10«2o9) for selective execution of statements dependant 
on the type of value last assigned to the union variable. 

4*3 1 5*1 RaatnifitiaQa-ttQ-UQiaQ-UsfliiifiEabiE 

The so-called qoq '. .,aius types cannot be members of a' union* 
The non-value types are neaps* arrays and stacks of non-value 
type components* and records containing a field of non-value 
type* 

If vtl and vt2 are variables of the types tl and t2 
respectively* and if the assignment statement vtl * 3 vt2 is 
potentially admissible within the scope of a union type 
declaration* then tl and t2 cannot both be members of that union 
type* 
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4 « 3 o 5 . 1 Restrictions on Union Membership 

"an improper union" 
J£&C n# r> s, t : inJfcsaaL ; 

ti c ..«;«.o; 

n:«k-t;r:an+s; 

kaain 

£^££ mixture » 

uQi2Q (kaalaan* ££&!' vecta* vectb ; » ord) ; 

&£££ ord - (kread* kwrite* kclose'* Kopen)> 
vecta » SLLa^l CI.. 993 a£ iQ££S££* 
vectb * ■ a££3^ CnooT] af iQ£eaer ; 

"either vecta or vectb must be removed from the 
union type mixture* since potential equality of type 
could occur; depending on the values of n and r ♦ fl 

• • o J £Qd &Qd 

4.3.5.2 ..RafikSd-UllLaaS. 

A union type is in reality a type or two components-- t he type 
field and the value field. The packing (of. 4.9) of a union 
variable affects the alignment of these fields but does not 
affect the packing of the union members. A union. type that is 
packed because it is declared to be packed or because it is a 
member of a packed structure such as an array or a record cannot 
be made the object of the pointer type test operator (cf. 9.2.1) 
nor used in a pointer conformity case statement (cf. 10.2.9.1) 
because* by definition* tne fields of sucn a union **re not 
addr essab I e. 

4.3.5.3 yaiaa_i:£a£-£aui&aJLs.Q££ 5 

Two union types are equivalent if and only if they have the ! 
same packing attribute and the two ordered sequences of types are i 
pair -wise equivalent. S 

4e4 £I0RA££-IX£E£ 

Storage types represent structures to which other variables 
may be added* deleted* and referenced under explicit program 
control (cf« Storage Management Statements* 10.4). 

<storage type> s * * <stack type> 
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4o3o5ol Restrictions on Union Membership 

Eiiasmiai. 

" an Improper union " 
lac n* r> s* t : iQ.tg.aer. } 

n:*k-tjr:«n+.s'j 

t^^e mixture » 

UQion (booI&SQ* ££&!/ vectai vectb ; » ord) ; 

£.£&£ ord = (kread* kwrtte/ kclose> Kopen)> 
vecta « aLLaX Cle«99] of iQi£3£L^ 
vectb « ■ a£L3£ Cn or3 a£ iQ££a£L > 

"either vecta or vectb must be removed from the 
union type mixture/ since potential equality of type 
could occur* depending on the values of n and r • ff 

4*3c5«2 _£a£!&£d_UQioQs 

A union type is in reality a type of two components-- t he type 
field and the value fieldo The packing (cf<> 4»9) of a union 
variable affects the alignment of these fields but does not 
affect the packing of the union -members* A union type that is 
packed because it is declared to be packed or because it is a 
member of a packed structure such as an array or a record cannot 
be made the object of the pointer type test operator (cf© 9 • 2 • 1 ) 
nor used in a pointer conformity case statement (cf« 10»2©9ol) 
because* by definition/ tne fields of sucn a union are not 
addressaole* 

4 ,3 #5.3 UQiaa_lJt££_EflUi)tal£Q£fi 

Two union types are equivalent if and only if they have the 
same packing attribute and the two ordered sequences of types are 
pair-wiseequivalent« 

*•« SIQR&££-IX£&£ 

Storage types represent structures to which other variables 
may be added/ deleted/ and referenced under explicit program 
control (cf e Storage Management Statements/ 10©4)« 

<storage type> :r* <stack type> 
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4o0 SWL TYPES 
4»4 STORAGE TYPES 

} <sequence type> 
!<heap type> 

Storage types may be of variable bound type ( c f • Fixed and 
Variable Bound Types)* 

4*4*1 STACK TYPE 



<stack type> s * » g£afi!i- L<stack size>2 &£ <type> 
<stack size> :s» <integer expression) 

A stack type represents a collection of up to * s t a c k size 5 
components of the same type managed (using a Mast in-first out 1 
discipline) by the £>tis.fo> &o£j> and ££££& operations (cfelOo4©2* 
10*4*3* . and 10e4«7)© In addition* stacks may be assigned to 
stacks; no other operations are allowed© 

Two stacks are equivalent if they have the same size and S 
component type* J 

Stack ccmpcnents are accessed through pointers constructed as 
by-products of the austl and £&£ operationso The *Nth* element 
below the top (current) element of the stack may be accessed by 
use of the standard function #fi£££iaii£ (cf© 11*2*18)* 

A system-defined stack (cf« 10©4©2o2) is provided* 

Components of any type may be allocated (pushed) on this stack* 

but can not be explicitly freed (popped or reset) .by the usefe 

Instead* such freeing is done automatically on ; exits from blocks 

(cf* 7*5)* 

4*4*2 SEQUENCE TYPE 

<sequence type> *:* s&a (<space>) ff cf« 4*4*4 U 

A sequence type represents a storage structure whose 
components are referenced (by a sequential accessing discipline) 
through pointers constructed as by-products of the Qext; and ££§.££ 
operations (cf* 10*4*4* 10*4*5)* In addition* sequences may be 
assigned to sequences; no other operations are allowed© 
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4.4.3 HEAP TYPE 

4*4.3 HEAP TYPE 



<heap type> ss=» &&££ (<space>> "cfo <t»4«V f 

A heap type represents a structure whose components can be 
explicitly allocated (by the ailttfiatfi statement) and freed (by 
the ££gg and £&£££ statements)* and which are referenced by 
pointers constructed as by-products of the fliJLfi£a£fi statement 
(cfo 10c4e5> iG«4o6)« No other operations on heaps are 
a I I owed o 

A sys tem~def i ne d heap* that can be managed in the same manner 
as user-defined heapsj> is provided* 



4. 4.4 SEQUENCE AND HEAP SPACE 



<space> i i « <span>{;<span>} 

<span> :s» C£fi,[> ■.. <p.os i t i ye integer expression) a£^ 
<type i dent i f i er> 

A space attribute of the general form 

£££ • nl of typel; £££ n2 fl£ type2* 0*0 

specifies a requirement that sufficient space be provided to 
simultaneously hold nl instances of variables of typel* n2 
instances of variables of type2* and so on* 

The space attribute places no restriction on the types of the 
variables that may be stored in a sequence or heap* other than 
that the space available for storage (as defined by the space 
attribute) be large enough© For example* the space attribute may 
be defined solely in terms of integers* but the sequence or heap 
filled only with strings of characters and boolean variables* 

Adaptable types are structural skeletons of structured and 
storage types containing one or more indefinite bounds* indicated 
by an asterisk© They may be used solely to define formal 
parameters of procedures ( c f * Procedure Type* 4 e 6 « 2 ) and 
adaptable pointers (cfo Pointer Type* 4t2«3)* the latter 
P r o v i d i ng a mechanism for referencing variables of such types* 
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4.5 ADAPTABLE TYPES 

Adaptable types represent classes of related types to which 
they can adapt* Adaptation to such an j.QS.iaQi3QflaiiS type (cf* 
6 • 1 • 2 • 1 ) can occur in three distinct ways: 

Adaptable types can be explicitly fixed by the use of 
allocation designators associated with storage management 
statements (cf* 10*4). 

Adaptable types used as formal parameters are fixed by the 
actual parameters specified at procedure activation* 

Adaptable pointer types used as left parts of assignment 
statements are fixed by the assignment operation© 

<adaptabletype> na <adaptable aggregate type> 

!<adaptable storage type> 

<adaptab I e aggregate type> :*» ^adaptable string> 

S<adaptable array) 
}<adaptable record) 

<adaptable storage type> i i s <adaptable stack> 

} <ad a ptabte sequence) 
}<adaptablrheap> 

4e5«l ADAPTABLE STRING ! 

Adaptable fixed strings (varying strings) can adapt to fixed 
strings (varying strings) of any length (max! ength) • 

<adapt ab I e s tr i ng> * * =* <adaptable fixed string) 

i <adaptabie varying string) 
J <adaptable string identifier) 

<adaptable fixed s t r i ng s J » Stniaa < *) &£ <character type) 

<adaptable varying string) s:« &S.££iQa -t*> Q.L <character type) 

<adaptable string identifier) if » <i dent i f i er> 

Two adaptable fixed strings are always equivalent* and two 
adaptable varying string are always equivalent* 
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4*5.2 ADAPTABLE ARRAY } 

Adaptable arrays may have either adaptable- components or one S 
(or more) adaptable indicesp or both© • 

Adaptable arrays can adapt to any array with the same packing J 

attribute* the same types of subscripts and either the same ! 

component type or (in the case of an adaptable component type) a ! 

type to wnich the adaptable component type can adapt® J 

<adaptable array> t z » [<pack i ng)]<adap tab I e array identifier> ! 

J C<pack i ng>]<adap t ab I e array spec) ! 

<adaptable array identifier) : : * <identifier> 

<adaptable array spec> t ^ 

SC£ax £<starred list>2 a£ <type> 

I 3lLL&1 £<starred list>2 o£ <adaptable component type> 
«il£X&& £<indices>2 &£ <adaptable component type> 

<starr ed list) jj- 

{Xindex)*} <starred index) {* <any index>> 

<any index) na < index) !<starred index) 
<starred index) s:^ <star> l <starred subrange) 
<star> :s^ # J * : <scalar type) 

<starred subrange) ns # 00 <scalar expression) 

!<scalar expression) .« * 

<adap tab I e component type) :s~ <adaptable type) 

Note that component types* indices* and the upper and lower 
expressions associated with starred subranges may be of variable 
bound type 

An asterisk (*) without a scalar type Indicates an adaptable 
bound of integer type. 

Adaptable arrays are equivalent if they have the same packing 
(cf. 4*9)* equivalent component types* identical dimensions* and 
if corresponding indices and elements of starred lists are 
equivalent* Two stars are equivalent if they have the same 
associated types? two starred subranges are equivalent if their 
lower and upper expressions are equivalent* 
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4*5*3 ADAPTABLE RECORD 

Adaptable records consist of zero or more fixed fields (cf« 
4e3#4) followed by one and only one SriaalatilS £i£id£ which is a 
field of adaptable type* 

Adaptable records can adapt to any record whose type is the { 
same except for the type of its last field* which must be one to ! 
which the adaptable field can adapt© S 

<adaptable record) ::= 

C <p ack i ng>3<adaptab I e record type identifier) 
!C<packing>3<adaptable record spec) 

<adaptable record type identifier) JJa <idantifier> 

<adaptable record spec) :t* 

£££2££l [{fixed fields)*] {adaptable field) <recend> I 

<adap tab I e field) i ta 

<f I e I d selector) : C<a I i gnment)] <adaptable type) 

<recend> :** C*3 £fi££Qd S 

Two adaptable record types are equivalent If. they have the 
same packing (cf* 4e9)> the same number of fields* and identical 
field selectors and. equivalent types for corresponding fields* 

A bound variant record is a variant record whose case part is 
meant to be fixed to one of its constituent variants* See 
Section 4*7 for syntax and semantics* 

4«5t4 ADAPTABLE STACK 

Adaptable stacks can adapt to a stack of any size* with the J 

same component type e I 

{adaptable stack) us {adaptable stack identifier) 

2 &£a£li L*l at <type) 

{adaptable stack identifier) ns {identifier) 

The maximum number of components of an adaptable stack can be J 
fixed by a length fixer (cf« 1 * 4 I • » « 
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4.5.5 ADAPTABLE SEQUENCE 

4o5o5 ADAPTABLE SEQUENCE ! 

Adaptable s sequences can adapt to a sequence of any size* 1 

<adaptab!e sequence) ;:» <adaptable sequence identifier) 

<adaptable sequence identifier) ::» <identifier> 

The space for an adaptable sequence can be fixed by a span I 

f I x e r ( c f o 1 o 4 ) e . J 

4«5*6 ADAPTABLE HEAP ! 



Adaptable heaps can adapt to a heap of any size* { 

<adaptable heap) ::- <adaptable heap identifier) 

<adaptable heap identifier) it* <identifier> 

The space for an adaptable heap can be fixed by a span fixer } 
(cf* 10#4)t 

4c6 CQHIRQL-II£ES 

<control type) ::» <label type) 

!<procedure type) 
Kcoprocess type) 

Control types may be used solely to define £§.f£L£Q££ 
Ea£aoi&£S£§. (ofe below) and EaifltfiLS (cf« Pointer Type* 4«2*3)« 

4*6«1 LABEL TYPE ! 

Labels are identifiers used for referring to specific ! 
statements (cf* 10*0)« Refer to sections 8*3 and 10«0 for the } 
semantics of labels* J 

<label type) iia JLafeal 
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4o6o2 PROCEDURE TYPE 

W t» « « W W W W W M AM< M W M W A) W « W « A^ « M « W « />J W W « « ^ M W W W W W W W W W W /y /tf W M M W W 

4*6*2 PROCEDURE TYPE J 

Procedures are identified portions of programs that can be I 
activated on demand* Refer to section 8 and 10*3 for the ! 
semantics of procedureso" J 

A procedure type defines an optional ordered list of formal 
parameters together with an optional return- type* 

<procedure type> s: = <procedure type identifier) 

•E£S£ <proc type spec> 

<proc type spec) *: = 

C£<Proc type at tr i butes>13C <par ame ter I i st>3C<re turn type)] 

<proc type attributes) ::« 

<null construct (for expansion purposes)) 

<procedure type identifier) :* e <identifier> 

<parameter list) :*~ Kparam segment>{ ? <par am segment)}) 
<param segment) its <reference p ar ams) J <va I ue params) 

<reference params) s*» 

Lfi£ <reference param) £ preference param) } * 

<reference param) n= J 

<formal param list) : C£ #L&ad 23 <ref type) { 

<value params) ?: s &al <value param>{ Rvalue param)} } 

<vafue param) :js ^>«-v . * 

<formal param list) : C£ #Lfifld 23 <val type) • 

<formal param list) * s s <identifier list) 

<ref type) jj^ <SWL type) 
<val type) : s « 

<type> ! <adaptable type) ! <bound variant record type) 

<return type) :t» < basic type) 

Val type is further restricted to exclude the so-called 
non-value types* heap types> arrays and stacks of non-value 
types* and records containing a field of a non-value type* 

Two procedure types are equivalent if corresponding param 
segments have the same number of formal parameters* identical 
methods (£&£ or £&!)* and equivalent types* and if their return 
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types are equivalent* The #££3£l ££££§.2. a££ciim££ (cf» 7©1©1©1) ! 
defines a read-only parameter© 

The presence of a return type in the proc type spec indicates 
that the procedure is a functional procedure to be invoked as a 
factor/ rather than by a procedure call statement (cf# 8 © 1 © 3 * 
Functions* and 9*0* Expressions)* 

4©6©3 COPROCESS TYPE I 

Coprocesses are procedures controlled as synchronous 
processes^ so that partial execution of more than one procedure* 
with a single thread of control passing back and forth between 
them* is permitted© Refer to sections 8©2 and 10*3 for semantics 
of coprocs© 

<coprocess type> it* £fiB£££ 

A bound variant record is a variant record (cf© 4©3©4) whose 
case part is meant to be fixed to one of its constituent variants 
by the use of a tag field fixer (cf© Section 10©4)© These are 
space saving constructs* since only the space required for the 
selected variant is allocated© 

<bound variant record type> J s =* 

[<packing>3 <bound variant record type identifier> 
!C<packing>3 bouQcJ <variant record spec> 
!C<packing>3 baund <variant record type identifier> 

<varlant record spec> :j s 

££££££l C<fixed fields>>3 <case part> <recend> { 

<recend> :«* E*3L££gni • 

<case par t> t i » 

£&&& <tag field spec> o£ <variations> £a££Qd 
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4.0 SWL TYPES 

4.7 BOUND VARIANT RECORD TYPE 

w aj « aj a/ ff j a/ aj a* a? a? a> a? /v a? a? a? nt aj « rj nt re r* ^ a? a? at a; r* a* re a* aj a* a? /s» r**9*9*3MM*t+3t*tf>if4*4*9*3 ***t mwmmmmma/mmmmm 

<tag field spec) * $ = 

<tag field selector) i [<a I i gnment)] <tag field type> 

<tag field selector) ::= identifier) 

<tag field type) ::^ <scalar type) 

<varlations) ::* <variation> i* <variation)} 
<varlation> ::= *<selection values)** <variant> 

<selection values) na 

<selection value) {.? <selection value» 
<selection value) *: = <constant scalar expression) 

C «o <constant scalar expression)] 

<variant> :: = C<fixed fields)] J 

!£<fixed fields)*] <case part) J 

A bound variant record type may only be used to define formal 
parameters or to define pointers for bound variant record types 
( i«e fi ; bound variant pointers)© Thus a variable of this type is 
always either a formal- parameter of a procedure/ or is allocated J 
(cf« 10*4) in a sequence or a heap* or in the system-managed 1 
stack* { 

An allocate statement for a bound variant record type requires 
the specification of the tag field values, which select the 
variation of the record allocated© In this case* only the 
specified space is allocated* A bound variant pointer is 
returned by such an allocate statement* 

If the formal parameter of a procedure is of bound variant 
record type* then the actual parameter may be of either variant 
record type or 'bound variant record type* 

If a formal call~by-ref parameter of a procedure is of variant 5 
record type* then the actual parameter may not be of bound ! 

variant record type* 

A bound variant record type is never equivalent to a variant 
record type© 

Record assignment is not allowed to a variable of bound 
variant record type* 

4.8 EILE-IIEES I 

Files are sources and sinks of data that can be accessed J 
through input^output statments* Four file types are provided* { 
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#tf #tf A* A/ Af A/ A/ A? A? A? W A* A/ K3 A? <V A? t%t A/ A? M A? Al A? A/ A/ A7 ff-J t& AJ A7 AJ A* AT M Af A7 A/ A* A? A? AJ A7 AJ A* A* A? A^ Af A\* A? A^ IV? #«> A/ « A* AJ A* A* A* /tf Af A/ A? A7 

<file type>-u« ifiaitlis ! £Lia£ S feiaaot 5 £lL£££ 

Lsaikia £il£§, consist of a sequence of entities called linesc 
System-defined mappings between lines and E£LtDflS-flf-.£t2aL exist; 
these may differ depending on the source or destination device of 
the I ineso 

E£iQiL~£il£§. are special cases of legible files that permit the 
user to control output formatting through the use of pagination* 
spacing and titling procedures (permitted on print files only)* 
rather than through the use of embedded control characters* The 
user should not directly embed such control characters in- data 
destined for print files* 

fiinaLX-tii^S. consist of a linear sequence of SWL variables* 
These variables are not -self-identifying* so that results of a 
read operation are guaranteed If and only if the sequence of 
types read is the same as the sequence written. 

EiLS£i. ,£ii8.3 sire special cases of binary files that also 

permit the retrieval (and rewriting) of variables •directly^ 
through the use of a * k e y ' * Results of such a read (or rewrite) 
operation are guaranteed if and only if the obvious (but 
tediously described) type matching holds* 

Files are referenced by so-called iQ£U£ a^taufc statements } 
(cfe 10*5) which refer to files via f i I e-var i ab I es c { 

4*8*1 FILE VARIABLES J 

Files are accessed through file, £3£iabie£* which are 

associated with a file by an explicit oe>£Q procedure and 
de-assoc i a ted from a file by an explicit aio^g procedure* File 
variables take on as values so.ne undefined structured collection 
of values which defines the instantaneous state of the actual 
file associated with the variable* They may be used as 
components of arrays and fields of records* may be allocated in 
storage variables* and may be assigned to other file variables of 
the same type* In addition* they may t>e used as actual 
parameters of procedures* and file types may be used to define 
both £g£ and ^al formal parameters* In general* then* file 
variables are data variables with a restricted operational 
domain* In particular* file variables can not be compared* 
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4*8.2 FILE VARIABLE WARNING 

W w w *< w « « w w w ** /•«? a* m r* a* r* a* fa fj rs te* t? kj a* n a? c-T e>s A? a? a; aj A3 A? A? a? A3 w a? A? ** /w a? a; a? »v a* ai aj ummm^a/^mm*/M«/mmma; 

^8o2 FILE VARIABLE WARNING ' J 

HaLaiQa 5 If a file variable Is assigned to another file 
variable* and either used for manipulation of a flfep then 
resulting changes in the file variable used are not implicitely 
reflected in the other file variable* The use of both file 
variables for simultaneous manipulation of the same file could 
result in serious errors© 

4*9 EAamfi-ANtt-ALIfiiiilEtil 

<packing attrlbutes> *:* £a£Ji£d, • UQ&S£!S£d 
<allgnment> n= aiiSQS^ 

A packed structure will generally require less space at the 
cost of greater overhead associated with access to its 
componentso If a packing attribute is unspecified* then the 
structure is assumed to be unpacked© An inner structure inherits 
the packing of its immediately containing structure unless the 
packing of the Inner structure is explicitly specified© 

Elements of packed structures are not guaranteed to lie on 
addressable memory sites (i©e©* pointers to such elements can not 
always be generated)© The aliSfl££i attribute must be used to 
ensure addressability of such elements© Addressability is 
achieved at the expense of storage space (except in certain 
serendipitous cases)* so that the effect of packing may be 
diluted* sometimes severely© 

Explicitly unpacked structures and their components are always 
aligned* Packed structures are also aligned unless they are 
unaligned components of a packed structure* but their components 
are not unless they are explicitly given the &liaQ£d or ilQ£jic&£^ 
attribute© 

The attributes aafiksd* MQ£ac&£d* and ££32!:n£<2 (cf© Crammed 
Types* 13©1©2) cannot be applied to types that are explicitly 
packed* unpacked* or crammed© 
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4<,10 OTHER ASPECTS OF TYPES 

4.10 QIUER-ASfLEtlS-QE-IXEES 



4*10*1 INSTANTANEOUS TYPES ! 

Variable bounds adaptable and bound variant record types 
actually define classes of related types. Variables of such 
types (and pointers to such variables) are explicitly meant to be 
•fixed 8 to any or all types of their type-class at different 
times during the execution of a program* See Variables and 
Variable Declarations for a discussion, of type fixing* 

4*10o2 VALUE AND NON-VALUE TYPES } 

Value assignments { c f * Assignment Statements) are permitted } 

only to variables of the so-called vaiug types* The non-value ! 

types are* ! 

a) heapsj J 

b) arrays of non-value component *,ypes • 

c) stacks of non~value component types j 

d) records containing a field of non-value type* J 

4*10,3 COMPARABLE AND NON-COMPARABLE TYPES S 

Value comparisons (cf« Relational Operators) are permitted ! 

only between variables of the so-called £2EEL3LiiE>iS types* The ! 

non-comparable types are? } 

a) files* stacks* heaps* sequences* unions and variant ! 
records; \ 

b) arrays of non-comparable component types; { 

c) records containing a field of non-comparable type* I 
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<**10e't FUNCTION-RETURN TYPES 

4el0«4 FUiMCTIQN-RETURN TYPES ! 

The only types that can be associated with returned values of J 

functions (cfo Functions and Return Types) are the basic types: } 

a) iQiaaSL* filiaL* i2£2i£JlQ> ordinal types* sub-range types; { 

b) LS&i types; J 

c ) pointer types * { 

4«10o5 CONVERTIBLE AND CONFORMABLE TYPES J 

Mechanisms for converting values of some types to values of ! 

others are provided (cf© Value Conversion)* { 

a) -Scalar values and real values are convertible to integer I 

values>>and conversely! 1 

b) Conversions are allowed between £aQjL2L3fikIi* arrays and S 
between saQf&LBiafels records (cf e Conformable Arrays and J 
Records) » ! 
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5.1 ¥ALUE-£QUSI&U£iaBS 

Two mechanisms are provided for explicitly denoting values:. 
£fiQS£aQ,££ and &aiU£ c&n&t£.iic t o£& Constants are used to denote 
constant values of the basic types and strings. Value 
constructors are used to denote instances of values of set; 
array* and record types* There are two kinds of value 
constructors: definite Y,3iy£ £2QS£LU£.£a££> which include specific 
type identification; and indefinite v&ili£ £QQ£££.ii££2LSL' whose 
type must be determined contextual !y 

5«lol CONSTANTS AND CONSTANT DECLARATIONS 

5ol«l#l £2Q££aa££ ! 

Constants are used to denote instances of values of the basic 
types and of string types© 

<constant> *: q <basic cons t ant> ! <s tr i ng constant> 

<basic constant> ::= <scalar constant> 

Kcompile time variable> "cf* Section 12.1 11 
J <re a I cons tan t> 
J<pointer constant> 

<scalar constant> *:* <ordinal constant> 

|<boolean constant) 
}<integer constant) 
|<character constant) 

<ordinal constant) it* <ordinal ■ constant identifier) 
,f cf* 4e2«l#l*3» 

<boolean constant) ::* £ais,&« £Ly& • <boo I ean constant identifier) 

<integer constant) * : =» < i nteger > I <i n teger constant identifier) 

<character constant) s : ** « < a I p h a b e t > fi 
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r4AtAt+*K?**A*At*CA*t****#Wf<ir 



Kcharacter constant identifier) 
• JfibiiL (<integer>) 
fl cf« Standard Functions* ll«2 ,f 

<real constant> i : s <real number >! <r ea ! constant identifier> 

<string constant> • : * <strtng term> £ £g£ <string term>> 

<string term) :s« <character constant) 

S < s t r i n g constant identifier) 
j*<alphabet> <alphabet> £<a I phabe t>> • 

<pointer constant) j:^ qJLJ. 



<ordlnal constant identifier) : : =* < j dent i f i er > 
<boolean constant identifier) **=* <identifier> 
< i n t e g e r constant identifier) : : r <identifier> 
<character constant identifier) JJ« <identifier> 
<real constant identifier) n^ <identifier) 
<string constant identifier) J? 3 identifier) 
<polnter constant identifier) Ji» identifier) 



<real number) si 3 <unscaled number) 

} <sca I ed number) 

<unscaled number) Ju <digit){<digit)}«<digit>{<digit>} 

<scaled number) *:« <unscaled number) EC<s i gn>] <d i g i t)t<d i g $ t>} 

<integer> ti* <"d i g i t>£<d i g i t>> 

! <tfi gi t>C<hex digit)} <base designator) 

<digit>-s*« 0il!2!3!^!5!6!7!8!9 

<hex digit) : :» A!B JCSDSEIF 

!a!b}cjd}eif 
}<digit> 

<base designator) ::* (<radix>) 

<radix> i : * 2 5 <t J 8 ! 10 ! 16 

<s ign) i i* ♦ J - . 

If the base designator is omitted from an integer* then a 
radix of 10 is assumed* In all cases* the digits {or hex digits) 
are constrained to be less than the specified radix© 
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5«lolo2 Constant Expressions. 

Constant expressions are constructs denoting rules of J 

computation for obtaining values (at compile time) by the ! 

application of operators to operands© The rules of application 1 

are those for £X£L££,Ei£a§. (cf* 9*0) with the following ! 

cons tr a i nts : } 

a) Factors of such expressions must be either constants or J 
parenthesized constant expressions* i 

b) The expressions must be simple expressions (terms involving ! 
relationals must be parenthesized)* S 

c) The only functions allowed as factors In such expressions } 
are the $in£aggjr> $£tiaL* $kSL2i£aQ> #&&£* #£JLflQ* #£klS£' #£C££i* and ! 
$<scalar type identifier> functions with constant expressions as { 
arguments© I 

d) E&ili constant expressl ons used in constant declarations are ! 
constrained to be either a <real number) or a <real constant J 
identif ier>o I 

5*1*1*3 £ttQ£iaQ£-Q££la£aiiaQ& ! 

Constant declarations are used to introduce identifiers for « 
constant values* Once declared* such a ££Q&-taQ& Lde&&LL&L can be } 
used elsewhere to stand for the identified value* J 

<constant declaration):;** 

£2QSi C<constant spec) {* . <constant spec)}] 

<constant spec> * ; « 

<constant identifier list) * <constant expression) 
i <empty> 

<cons,tant identifier list) n« <identifier list) 

A constant spec associates one or mora identifiers with the I 
value of the constant expression* ! 

5*1*2 DEFINITE VALUE CONSTRUCTORS J 

Definite value constructors are used to denote instances of { 
values of a specified set# array* union/ or record type* and to J 
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5,1.2 DEFINITE VALUE CONSTRUCTORS 



denote instances of typed empty sets and typed •nil pointers© 



<definite value constructor) :.: = 

$<cons t r uc tor id> £<value elements>2 

$<set type identifier) £ 2 t8 the empty set" 

$<pointer type identifier) £ &LL I 

$<union type identifier) £ <expression) J 



<constructor id) 



* : ° <set type identifier) 
}<array type identifier) 
Krecord type identifier) 



<value elements) *:« <value e I ement)"C* <va I ue element)} 
<value element) ::= C<rep spec>3<exp ress i on) 

|[<rep spec) ]<i ndef i n \ te value constructor) 

JC<rep spec)] * 

<rep spec) ::= £££ <positive integer expression) a£ 

Identifiers for definite value constructors are obtained by 
prefixing the ^target type* identifier with a dollar sign* * $ * * 
The types of the elements of the value constructor must match the 
ordered set of components of the specified target type* except 
for 'undefined elements* 9 which are denoted by an asterisk* • *•% 
Definite value constructors can be used wherever an expression 
can be used* with the caveat that ^undefined fields 6 may yield 
results which are either undefined or erroneous* or botho 



Initialization of* or assignment to* a tiaion variable requires 
that the right hand side's type be known* When that type is to 
be a pointer type with value Qii* the $<pointer type identifier) 
for nil as shown in syntax above may be used* 



The expression used i n - a union value constructor must evaluate 
to a value whose type can be assigned to one (and only one) 
member of that union* 



Rep specs may be used solely for array construction* 



Note that a set value may be defined to be *empty f by use of 
nothing between the brackets £ and !• 



All fields of a definite value constructor corresponding to 
tag fields of a variant record must be constant scalar 
express i ons • 
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■5.1.3 INDEFINITE VALUE CONSTRUCTORS 

5*1*3 INDEFINITE VALUE CONSTRUCTORS ! 

Indefinite value constructors are used to denote instances of S 
set* array* or record type© S 

<indefinite value constructor) Ms £<value elements)! 

5 LI "the empty set" 

Indefinite value constructors can De used only where their ! 
type is explicitly indicated by the context in which they occur: 
as arguments of £oq^§£^Ioq £uQ£tioQS (cf« Section 5c2)* as 
elements of definite and indefinite value constructors^ and for 
the iaiiiali^Stiaa of variables (cfo Section 6«0)» They may be 
a set* array * or record depending on their context* 



All fields of anindefinite value constructor corresponding to 
tag fields of a variant record must be constant scalar 
express i ons « 



The lack of value elements can be used to define the J 
indefinite value of * a n empty set * when nothing appears between J 
the square brackets £ and 2* } 

For the types defined by 

£&££ color a (red* green* blue)* 

A * &ll&% ci##203 a£ ia££fl££> 

Rl e £££££& t : &LL&1 Cl.#33-ft£ k&al£&Q* 
s : S 

£££&Qd' 

R2 s £££2£d Fl l ££t a£ £2l2£* 

F2 : S* 

F3 J A* 

F4 t Rl 

£e££Qd> 

instances of definite value constructors for the types Rl and R2 
follow* with their fine structure displayed* 

$RUC££b 3 o£ i£iie3* «SBC«3 

S 4- — <string constant) for field s 

4— — — < i ndef i ni te value constructor) for field t 
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3 6 Xo3 INDEFINITE VALUE CONSTRUCTORS 



$R2[[red, bl ueJ* 'CBS • # Cl£2 20 af 23>CClB£ 3 o£ f alSSl* 1 3CS • J 3 
+ — , * — + — ... + „ , — » — + — ~-~~^~*« „,«. 

+ — < indefinite value 
constructor) for 
F4 
'+~ <i nde f i n i te value constructor) 
for F3 
*~-<st r i ng constant) for F2 
+— <i ndef i n i te value constructor) for Fl 



Each of the constants used in the above examples could have 
been replaced by expressions that evaluate to the required 
types* 

&£££ vio - £,££&££! 

inout : (kread* kwrite* kopen* kclose) "ordinal 

type" f 
index : iQ£ea££* 
fname 1 sJLLiQfl (8) fl£ ch^L 
tSSgQd j 
X3L arec J vio j 

♦ we 

'arec-** SvioCkopen* * > f holdlngs f 3 J 
"value of fietd arec*index is undefined" 



5.2 ItALUE-CfllME&SIQii 



Host dyadic operations are defined only for operands of the 
same type* This requirement is relaxed to permit: 



a) values of different subranges of the same parent type (and 
values of the parent type) to enter jointly into operations 
defined for the parent type; 



b) characters to be used with strings in string operations! 



c) other formally non-equ i va I ent* but operationally similar 
types to enter jointly In some cases of assignment (cf. 10*1*1) 
and 10*3*1) and comparison (cf« 9*2*6)* 



In all other cases* when it is necessary to operate on 
dis-similar types the conversion functions described below must 
be used* 
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5t2d TYPE CONVERSION FUNCTIONS 

Identifiers for conversion functions are obtained by prefixing 
the target type identifier with a dollar sign. The function so 
Identified wiH then accept as an argument values that are 1 
convertible to the target type D ! 

5*2«i«i aasis-GfiQitfiLsiaQs. I 

These consist of the 8 pr e-de f i ned * functions (cf© Standard { 
Functions* ll*2)c ! 

$1q£&2*££ Kreal expression or char expression or ordinal 

expression or boolean expression)) { 

$L£3.i Kinteger expression)) 
$£ti&L (<integer expression)) 
$k2fil£&Q( <* nteger expression)) 

and the 'definable 1 functions* 

$<ord i na I type identifier)(<integer expression)) 

$<integer type i dent i f i er> (<r ea I expression or char 
expression or ordinal expression 
or boolean expression)) 

$<real type i dent i fer (< i nteger expression)) 
$<char type identifier) (<integer expression)) 
$<boolean type i dent i f i er> ( <i nteger express i on) ) 

Conversions between the basic types are the conventional ones 
and are defined in Section 11«2« 

Conversions to ordinal type return the value whose ordinal 
number is the value of the integer expression used as argument* 
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"5.2.1*1 Basic Conversions 

E&amElfts.i 

tXEa status » (now close* now open* now read); 
)L2lL i 2p i3/ 14/ 15 : iQJieg.eo 

r2/ r3 t £,£&!/ b? babbage i kooieaQ/ 

s tat : s tatusj> 

chl/ ch2 * &tUL i 

12 := 2? i3 := 3j 14 :* 4i 

r2 s= 2*2J r3 :* -3*3 1 stat :* nowread; 

15 * £ U babbage s= £ai£fiJ 

12 s= $iaisa£L( r3 ); "new value of 12 is -3 ff 

11 *~ tiQlSflSLt stat) J "11 now * 2* " 

chl :=* $£ba£ti2 )J lf chl now * 2nd ASCII character " 

stat is $status(l) ; "stat value is changed to nowopen " 

i4 : * *iQiaa£L( babbage }; ,f I 4 set to zero " 

b J a sfeaaiaaQt * 5) j "b set to itus" 
5.2. 1.2 £ftDlaLaabi£-ALLait-aQ£l-Sa£aLfl*£aQ^atsi2Q& 



Array-to-array 3nd record-to-record conversions are defined ! 
only for arguments that are •conformable'* to the target type* J 



$<array type i dent i f I er>( <ar r ay expression)) 

$<record type i dent i f i er >( <r ecor d expression)) 

<array expression) :*® <expression> 

S<indef ini-te value constructor) 

<record expression) ::» <expression> 

{indefinite value constructor) 

Conformabillty is defined recursively/ in terms of the 
conformabi I i ty of array components and fields of records/ by the 
following tab I e « 
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5 « 2 1 e 2 Conformable Array and Record Conversions 



Target Component 

or 
Field Type 



basic types 
set types 
string types 
union types 
array types 



array types 



non-var i ant record 
types 



Conformable Component 

or 
Field Type 



any type assignable to target 

any type assignable to target 

any type ass i gnab I e to target 

any type assignable to target 

array type whose indices span 
same number of elements as 
target type and whose component 
type conforms to target component 

indefinite value constructor 
containing same number of 
elements as index type of 
target* all conformaole 
to target comp on ento 

non-variant record type or 
indefinite value constructor: 
same number of fields* with 
each field conformable to 
corresponding target field* 



variant record types equivalent record type; or 

indefinite value constructor 
with same number of fields* 
each field conformable to the 
corresponding target field* 
with constant scalar expressions 
for tag fields* 
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5 . 2 . 1 o 2 Conformable Array and Record Conversions 

tXRS Al » &LL2.1 Cl»olO] at sl* ! 

si a §.i£iaa (zo) o/: sjiat* ! 

A2 » aLJia^ Cll.o20J of s2> 5 

s2 * slciiia do) o£ ctian* • 

Ri n tasfltd '• 

J ' L&&Lt ! 

A : Al ! 

R2 *■ t££ar.d ! 

alpha t iQ£§.ae.r> I 

beta : L&&L* • 

gamma J A2 J 

L££g.Qd* 5 

R3 » aaskfid R2; i 

The two array types conform and the three record types conform* ! 

5.2.1.3 StLiUfl-C&aStfiLSJLfiQS. ! 

String conversion functions are used primarily to right-extend 
a string with •fill* or 'padding' characters of the user's 
cho ice» 

$£.t£iaa{<l.ength>*<s tr I ng expr ess I on>[ * <f i II >3 ) 

$<s tr i ng type identifier>(<string expression>E*<filf>]) 

where 

<length> Ma <positive integer expression) 
<fHl> »«« <character expression) 

These functions return a fixed string whose length is 
specified by the length given as argument or by the length of the 
target type* The value returned is obtained from tne string 
expression used as the argument* right-truncated or 
r i ght~extended (by the fill character) as required by the length 
of the result* If no fill is specified* the blank character is 
used* 
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5.3 FILE VARIABLE CONSTRUCTORS 



5.3 EIL£-J£ARIAaLE.aQtlSiaU£IQaa 



Indefinite file variable constructors can be used only for 
initializing file variables ( c f • 6o7) o r ■ a s the arguments of 
definite file variable constructors© The latter can be used for 
assignment operations involving file variables of the same 
typesc 

indefinite file variable constructor) 11* £< file spec>2 

<deflnite file variable constructor) * : * 
$<file type> £<file expression)! 



<f i 1 e spec) :; = <f i i e attributes) "cf, 6.7" 



<f i I e attributes) *:* <file attribute) G(file attribute)} 



<file attribute) 



s <o I d or new) 
(mode) 
<encoding) 
<position> 
<actual file name) 
<page s i 2e> 
<end of page proc) 



<old or new) : : ** #aid 
<mode> ::* #iQC*#Q.U.t3 
<posltlon> S5» #£iLS£ 



#Q£B 

#asis • #iasi 



<actual file name) : J s <string expression) 

<page size) ::~ #ESa££iZ£ ((number of lines)) 

<end of page proc) ss* #E&2£.£J:a£ ■( (procedure reference)) 

(encoding) ::« #£fidSS.££ (<codeset>) 



(codeset) iu f asci i « 

•ebcdi c 1 



«asc i i 63 f 

•asci i 612* 

■nat i ve * 

(others as required) 



See section 6*7 for a complete coverage of file attributes* 
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6.0 VARIABLES; SEGMENTS* AND FILES 
6.0 JiARIAaLES^— SEfitlEiilSjL-AtlQ-EILES 



6a KARIAaLES.AMQ-MASIAfiLE-fiECLASAIIQblS ! 

Variables take on values of a subset of the SWL types:: fixed } 

or variable bound types> adaptable types* and bound variant I 

record types© J 



Variables of fixed or variable bound type can be declared by J 
an explicit variable declaration (see below) or can be declared { 
as formal parameters of procedures (cf« 8.1). i 



Variables of adaptable or bound variant record type can only I 

be declared as formal parameters of procedures* and must 5 

otherwise be explicitly established by storage management j 

operations - (cf« 10*4). } 

6.1.1 ESTABLISHING VARIABLES I 

This process Involves: i 

a) The determination of the type of the variable} { 

b> The allocation of storage for values to be taken on by the ^ 

var I abl e ; I 

c) The possible assignment of initial values to the variable; J 

d) The possible binding of references (see below) to that } 
variable. ' ! 

Explicitly declared variables are automatically estab I i shed- on S 

each entry to the block (cf. 7.5) in which they were declared. { 

However/ so-called •static 1 variables (cf. 6.2.2) are J 

established once and only once. • 

Formal parameters of procedures are automatically established } 

on each call of that procedure* If the procedure is associated I 

with a coproc* establishment occurs on each creation of that { 

coproc. } 
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6.0 VARIABLES* SEGMENTS* AND FILES 
6« 1.1 ESTABLISHING VARIABLES 

So-called J al located' variables are explicitly established by 

storage management operations (cf* 10«4) (for type determination 

and storage allocation)* and by assignment operations (for 
Inltlali zat ionlo 

6#1*2 TYPING OF VARIABLES 5 

Variable bound* adaptable and bound variant record types 5 

actually define classes of related types© Variables of such J 

types (and pointers to such variables) are expl icitly meant to be J 

•fixed 1 to any or all types of their type-class at different { 

times during the execution of a program* J 

6#X*2.I lQStaQtaQ£aUS-I^B£S ! 

The type to which a variable is fixed at a specific time 

during execution of a program is called its iQsiSQtSQ&QUS type 

(at that time)© It is a variable fi s instantaneous type that is 
actually used to determine the operations it may enter into at 

any point in time. In general* two variables whose instantaneous 

types are equivalent can enter Into dyadic operations defined for 
that type* 

The instantaneous type of variables is fixed in the following 
manner i 

1% Types themselves are fixed on entry to the block in which 
they are declared (by an explicit type declaration)* and remain 

fixed until exit from that block* 

* 

2« The instantaneous type of declared variables and formal 
parameters (of fixed or variable bound type) is determined as 
f o I I ows : 

a) If their type is specified solely by a type identifier* the 

type is fixed on each entry to the block containing the 
declaration of the identified type* and remains fixed 
until exit from that block* 

b) If their type is specified by an explicitly spelled out type* 

then the type is fixed on each entry to the block 
containing the variable or procedure declaration* and 
remains fixeduntil exit from that block. 

i 3* Variable bound parts (if any) of adaptable and bound 
variant record types are fixed as above for variable bound 
types* 
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6 * 1 o 2 « 1 Instantaneous Types 

4* Variables of adaptable and bound variant record type are 
fixed In three distinct ways: 

a) Formal parameters of such types are fixed by the 
Instantaneous types of their corresponding actual parameters on 
each call on the procedure of which they are a part* (See 
Section 10*3*1 for the rules for fixing parameters*) If the 
procedure is associated with a coproc; the type is fixed on each 
creation of that coproc 

b) Explicitly allocated variables of such types are 
fixed by the allocation operation* See Section 10*4*1 for the 
rules for fixing such variables* 

c) A direct pointer whose instantaneous type is any of 
the types to which an adaptable pointer can adapt, can be 
assigned to that adaptable pointer* In such cases, both the 
value and the type are assigned^ thus fixing the instantaneous 
type of the adaptable pointer* 

OL J> m# n : iflJLaflfiU 



feaaiQ "first block" 

JtxES ti «.&££ina <n) at slJuslLp 



feaaiQ "second block" 

*3£ S J tl> 

Al : aL£il* C j3 of tl, 

A2 j a£ta^ U3 a£ siniaa <<n) a£ £&aL» 
Etas P <*ai a s &LL&1 (*) a£ ti); 



♦ 

P(A1)J 
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6.0 VARIABLES* SEGMENTS* AND FILES 
6«lo2el Instantaneous Types 

The type* 1 1 * is fixed on each entry to the first bloc to thus 
fixing the instantaneous type of the variable* S* and the 
component type (but only the component type) of the variable* Al* 
and the formal parameter/ A. The instantaneous types of the 
variables* Al and A2* are fixed on each entry to the second 
block* The instantaneous type of the formal parameter* A* is 
fixed to that of the variable Al on each procedure call* P(Al)o 

6.1.3 EXPLICIT VARIABLE DECLARATIONS 5 

Variables are explicitly declared in terms of an identifier S 
for denoting them* a type* an optional set of ,a£J;Li&u£S§. and an 5 
optional iQi£iaiiza£i&Q. } 



<vsriable dec I arat i on) : : =* 

ISC "C<f •" I e or variable spec)£*<file or variable spec)}] 



<f I I e or variable spec) ::» <variable spec) { 

{ <f i i e variable spec) u cf. 6.7" J 

• <empty> • 

<var J ab I e spec) : t * { 

<variable identifiers) * C<att r i butes)] 1 

<fixed or variable bound type)C <i n i t i a I i zat i on)] } 

<variable identifiers) :s= } 

<variable identifier) C<alias>] { 

i *<variable identifier) C<alias>3 } { 

<varlable identifier) ::=* ^Identifier) { 

<alias) ::» sliaa f <alphabet> { <alphabet) } • i 

,f cf. 7.7.1 for semantics of alias" J 

6.2 AIIBiayi£S 

attributes) ::* £<attr i buteH* <attr i bute>>2 

<attribute> :i» <access attribute) 

!<storage attribute) 
Kscope attribute) 

<scope or storage attribute) :** 

£.<scope attribute) C*<storage attribute)]! J 

• JL<storage attribute) C*<scope attribute)]! ! 
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6.2-.1 ACCESS ATTRIBUTE 

6.2«1 ACCESS ATTRIBUTE ' ! 

<access attribute> tl* #L&a£ • #&LJL£& • #£&££,&£.£ • 

The read and write attributes can be associated with variables ! 
(and segments* cf • 6*5) to specify whether values can be read or J 
wr i tt en-over e • 

The execute attribute cannot be associated with variables* is ! 

automatically associated with procedures and labels* and is 5 

otherwise used solely to declare segments (cfo Section 6o5) J 

containing procedures© The degree of support for the execute 1 

attribute will be a function of the link-loader (link-editor) and ! 

the operating system* so will be system-dependents J 

Variables can be declared with either the read attribute or 
with no attributes at all* In the former case* the variable is 
called a 'read-only variable; 8 in the latter case* both the read 
and tne write attributes are automatically associated with the 
variable* which is then called a 'read-write variable* 1 

Read-write variables can be used freely for purposes of 

retrieval and reassignment: in expressions (cfo Section 9)* as 

objects of assignment (cf*> Section 10„1) and as actual 

parameters of procedures left Section 10«3«1)« 

Read-only variables can (and should) be initialized (cf» 
Section 6 o 3 ) * may not be used as objects of assignment* and may 
be used as actual parameters only if the corresponding formal 
parameter is either a v&i parameter or a read-only £g£ parameter 
(cf# Sections 4»6 and 8#l«2)o 

£&amEJL§£i 

Z&L vl : t#££a£3 J.Q££££L j35 10; "vl Is read only* but { 

initialization is valid" 
£H£ v2 : L&&1 J ,f v2 maybe f read* and f written ,H 

6.2,2 STORAGE ATTRIBUTES AND LIFETIMES 5 



<$ tor age attribute> :j= &£a£i£ • <segment identifier> 
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6.0 VARIABL.ES> SEGMENTS* AND FILES 
6.2.2 STORAGE ATTRIBUTES AND LIFETIMES 

is freed is called the •lifetime 8 of the variable* 

6.2.2 . i Aiitaaatifi-iiaLiafcias. 

The lifetime of an ^automatic variable 8 is the block (cf. 
Section 7«5> Blocks) in which it was declared: allocation and 
initialization occur on each entry to that block and freeing 
occurs on each exit from that block. 

6.2.2.2 staiifi-JiaLiaSilsi 

The lifetime of a •static variable' is the entire program: 
allocation and initialization occur once- and only once (at a time 
not later than initial entry to the block in which the variable 
was declared)* and storage is not freed on exits ^ from that 
block.. 

6.2.2.3 Lil££iffl£~£aQvei2£ioa& 

If neither storage attributes nor' scope attributes (cf. 
Section 6.2.3) are specified* then the variable is treated as an 
automatic variable* 

If the static attribute is specified or if a segment is 
specified (cf. Section 6.5) then the variable is treated as a 
stat i c var i ab le « 

If any of the scope attributes (cf* Section 6*2.3) are 
specified* then the variable is treated as a static variable. 

Variables of variable-bound type (cf. Section 4.1) cannot be 
s tat i c var i ab I es. 

Variables declared at the outermost level of a compilation } 
unit (cf. 7.1) are treated as static variables. I 

6.2.2.4 Li£aiim£-2£.Efl£maI_£a£ain&££L& J 

The lifetime of a formal parameter is the lifetime of the 
procedure of which it is a part: the formal parameter is 
established on each entry to the procedure* and becomes undefined 
on exits from the procedure. 
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6.0 VARIABLES* SEGMENTS* AND FILES 
6.2«2.5 Lifetime of Allocated Variables 

6.2*2.5 Li£atiDia-fl£-Ailfl£aisd-Ma£ia&lfia 1 

Allocated variables are established (but not Initialized) by ! 

an explicit-allocation operation; and become undefined when they * 

are explicitly freed or their containing storage variable ceases I 

to ex i st • • 

6.2*2*6 RaiQi£LJJ.£££iE£S. I 

Wi££QiQ& s Note that generally a pointer value has a finite 
lifetime different from that of the pointer variable* 
Procedures; labels* and automatic variables cease to exist on 
exit from the block in which they were declared.. Allocated 
variables cease to exist when they are freed or their containing 
storage variable ceases to exist. Attempts to reference 
non-existent variables by a designator beyond their lifetime is a 
programming error and could lead to disastrous results. 

6.2.3 SCOPE ATTRIBUTES 



<scope attributed * :» &d£l * *£&£ J £££££Q&I 

Variable identifiers are used in variable denotations. Scope 
attributes specify the regimen to be used to associate instances 
of variable identifiers with instances of variable specs. The 
programmatic domain over which a variable spec is associated with 
instances of its associated variable identifiers that are.used in 
variable denotations* is called the &co£g, of that spec. If no 
scope attribute is specified* the spec is said to be iatfiLQal to 
the block in which it occurs* and a so-called feia£&-&££li££ii£ina 
regimen is used (cf. Section 7.2). 

Internal variables are always automatic variaoles (see above) 
unless giyer\ a storage attribute* while scope-attributed 
variables are always sjtaiifi*- Each of the scope attributes 
specifies certain deviations from the block-structuring regimen. 
Broadly speaking* a variable identifier associated with an >££££ 
variable can be used to denote a similarly identified variable 
having the xdaJ.. attribute* subject only to reasonaole rules of 
specificat tonal conformity. 

£&£££Q3l variables are introduced to permit SWL programs to be 
interfaced with programs written in other languages; they may be 
referenced whenever and wherever their spec appears. 

NCR/CDC PRIVILEGED 6.0 



6-8 
SOFTWARE WRITER'S LANGUAGE SPECIFICATION 

75/06/09 
Revision 4 June 09> 1975 

6.0 VARIABLES* SEGMENTS* AND FILES 
6.2.3 SCOPE ATTRIBUTES 

Neither xt^f nor £&i££Qai variables can be initialized* and 
each carries the de-facto static storage attribute. 

There should exist only one declaration of a given variable 
(identifier) with the k&£j. attribute within a compilation unit 
(cf« Section 7«7) or within a group of compilation units to be 
combined for execution* 

If a variable declaration contains either the XLef or §&££LQal 
attribute* then it may not also contain a segment identifier 
attribute* 

6.2*4 FILE ATTRIBUTES 

See section 6*7 * 

6.3 INiHALIZAIlQU 

Initializations are used to specify values to be assigned to i 
explicitly declared variables each time such variables are i 
estab I ished* ! 

<l ni 1 1 a I i zat i on> : ; =* :» <i n i t i a I i zat I on expressions { 

<initialization expression> tt= <expression> J 

«< indefinite value constructor> ! 

Whenever the* variable is established (cf* 6*1*1)* the type of ! 

the variable is determined* storage for a variable of that type J 

Is allocated* the initialization expression is evaluated* and the } 

resultant value is assigned to the variable according to the I 

normal rules for assignment (cf* 10*1)* } 



6.3.1 INITIALIZATION CONSTRAINTS 



!• If no initialization is specified* the Initial value is 5 

undefined* { 

2* If the initialization expression is an indefinite value J 

constructor* the variable must be either a set* array* or record* } 

so that the type of the indefinite value constructor can be 5 

determ i ned* S 

3* An asterisk* «#•* can be used in indefinite value • 
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6.0 VARIABLES* SEGMENTS* AND FILES 
6.3.1 INITIALIZATION CONSTRAINTS 

constructors to indicate uninitialized elements of. arrays and 
records* The initial values of such uninitialized elements are 
undef i ned« 

4* Initialization expressions may not contain references to 
values of variables declared in the same block as that containing 
the initialization* However* references to values of pointers to 
variables* procedures and labels declared in the same block are 
a I I owed* 

More precisely* if *E ff identifies a variable*, procedure or 
label declared in the block containing the initialization* then 
its use in a factor of the initialization expression is 
constrained to the factor ,A E'« 

6e3*2 FILE VARIABLE INITIALIZATION S 

See section 6*7* as special initialization rules apply for { 
file var i ab I es « { 

6.4 SEfifl£tiIS,AbQ-SEfia£lSlI.12££LASAIIQlia 



<segment declaration> n= 5.£<iE£QlL <segments>* <segments> 

<segments> s:» <segment identifiers> C : £<access a t tr i bu t es>23 J 

<segment identifiers> i i =* (segment identifier> 

{*<segment identifier>> 
(segment identifier> zm <identifier> 
<access attributes> us (access attr i bute>{*<access attribute>} 




Note that SWL segments are primarily designed to group things 
together* and have no a-priori relationship (or lack of one) to 
hardware supported segments© 

A segment identifier may never be a prong (cf« 7»2* 
Modu I es ) • 
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6.5 VALID COMBINATIONS OF ATTRIBUTES AND INITIALIZATIONS 

6.5 yALIQj£Q£ifiItlAIiatlS-QE-AIIRiaUIES-AliQ-ItiIIIALI2AIIQMS . 

Only certain combination of attributes are valid* These 
combine with certain i n i t i a I i za t i on ass i gnments # some of which 
are -optional* some required* and some prohibited* 

AII&I£UL£ XfcJIIIALXZAIIQiJ £A£1£-AS 

(1) none opt i onal 

(2) #££Sd required 

(3) Siatifi optional 

(4) s£a£l£* #L£ad required 

(5) £dcl optional (7) 

(6) Sllci* #£g.ad required (8) 

(7) 2td£i*E£atifi optional (5) 

/ 

<8) Sd£i^Siati£^#Lea^ required (6) 

(9) ££e£ prohibited (11) 

(10) X£ft£*#£Sad prohibited (12) 
< 11) '.*£££> a£a£ifi prohibited (9) 

(12) *£££*£t&£i£>#Lftad prohibited (10) , 

(13) ant££Qal prohibited 

(14) axia£aal**LSad prohibited 

(15) * <segment id> optional 

(16) * <segment id>*#ra&<l required 

(17) * <segment id>*&d£i optional 

(18) * <segment i d>#£d£i'#L£ail required 
(*) Static is implied for segments* 
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6 e VARIABLES; SEGMENTS* AND FILES 

6.5 VALID COMBINATIONS OF ATTRIBUTES AND INITIALIZATIONS 

&aaiQaa£, si I C#£ead, #H£i£.e]* s2 * C#C£a£l3^ s3* C #a&a£ll£a3 J J 

iiS£ s C*£gad^2££l£i^ si] iQtec[e£ :* 27; "correct dec I ar a t i on" i 

" improper declaration — - access attribute of 
kb is read ~w rite* while s2 is read only" 
i£C£t Cs3J iaififlflLJ 

"improper declaration* — no accesses allowed 
-to segment s3" 
iid£i Csl3 iQteae£ J "correct declaration" 

!£2£ J Es2* #£&ad> *d£l 3 £££JL> I 

11 improper-- initialization required 
for xdcl* read-only" 
Bi£ : ■ t££a£l£'2ld£i*#£aad3 ££&i :=s 3.14159265 ; } 

"correct declaration and initial value assignments" 

" >}t i* % it 

4fifll*.D&eg2 « C#££ad> #ULi£a> #a&a£UJLa3- I I 

aaa^ • £seg2* #£aad3 iQi£2££ * 3 63 J "correct declaration" } 

bad : Cseg2*££e£] £ao.l£&Q I 

"improper use of both a segment identifier and 
&L&L attributes in same variable spec" 

aaav * c&d£i3 Laai := 39*37 ; 

"correct declaration with static attribute implied" 
^j£ : C&Laf* #L£ad3 feafliaaQ > "correct declaration of v3" { 

i&L 1 c#£aad^ax£a£aaI3 ia£aaa£i "correct use of 5, 

access attribute with ££te£Qai scope attribute" 
15lL 1 - E#£S3d> &£&£3 £&&i * s 2*54> "error because initial J 

value assignment not allowed with &£&£ attribute*" { 

£fe£ s taxlaLQai* ■ #Lfiad 3 baaiaan * s ££y.e> ' J. 

"error; initial value assignment never allowed 
with &&i§.£Q3l attribute*" 

6.6 miAftLE-REEEB£U£Ei 



<vari3ble> «i« <variable reference> 

<variable reference) na <variable identifier) 

5<pointer reference> A 
|<substring reference) 
|<subscripted reference) 
! <f i e I d re f er ence) 
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6«6.1 POINTER REFERENCES 

6*6*1 POINTER REFERENCES 



<Pointer reference) ::» <pointer variable) 

J< function designator) 

<polnter variable) :: a <variable> 

Whenever a variable reference denotes a variable of pointer 
type* It is referred to as a Efiidtsx £££&L£Q££ and the notation 

<Pointer reference) A 

may be used to denote a variable whose type is determined by the 
type associated with the pointer variable© If another variable 
of pointer type is denoted oy this reference; then 

<pointer refer ence> AA 

may be used as a variable reference© Note that variables of 
pointer type can be components of structured variables as well as 
valid return types for procedures* 

Given a variable identifier* the notation to obtain a pointer 
value to the variable is: 

*<var iable i dent i f ier> 

However* successive applications of the up arrow for such 
purposes is not allowed (See Evaluation of Factors* 9*1)* 

Pointers are always bound to a specific type (cf* 'Section 
4.2.3) and pointer variables may assume* as values* only pointers 
to objects of that type* 

The special value Qj.i Is used to denote that a pointer 
variable has no current assignment to a location* Note the use 
of the typed ail value constructor for use when a typed pointer 
Is required* such as in the assignment to a UQ12Q variable. 
(cf. 5*1*2 and 5*1*3 for value constructors*) 

6.6.1*1 £>i2aRi£S-.af^Qil££JL-E2iQ£^L«.S££fi£SQ££S 

l&L '> J> k * iQJtS&fi£> "integer variables'* 

P* * A iat£a££> "pointer variable of type* pointer to integer" 

PPi * AA iQi£&aL* "pointer variable of type: 

pointer to pointer to integer" 
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6o6olol Examples of Direct Pointer References 

bl> b2 ? bfiaie.3.!} J "boolean variables — end of declarations 11 

I * * 10 J "the Integer variable i Is given the value 10" 

pl : » A I ; "the pointer variable pi takes on the value: 
pointer to Integer variable i" 

ppl Ja A pj } "the pointer variable ppl takes on the value: 
pointer to pointer variable pi" 

PPl :* AA i ; "not perm i tted~ AA «•* A <i dent i f i er> 
Is not an allowable expression" 

j *■ pi* ; "the integer variable j takes on the value 
of the integer variable i" 

k :« ppi AA ; "the integer variable k takes on the 
value of the integer variable i" 

bl :» j a k ; "the boolean variable takes on the value JtLUS" 

b2 * 3 pi A s ppi** i "the boolean variable b2 takes on the 

value £ma" 

Pi lm ail I "the pointer variable pi is set to denote 

lack of indicating any variable" 

k :« pl A } "statement is in error when pi has the 
value qxI — result of this statement 
will be implementation dependent" 

if ppl * Qil ib£Q k :- k + i ifaaa ; 

"valid test of ppi and valid statement" 

pi :* A (|-+ j ♦ 2*k) i "improper use of up arrow to request 
location of an expression — an undefined concept" 

6«6#2 SUBSTRING REFERENCES 

<substring reference) : * » <string var i ab I e>( <subs tr I ng spec>) 
<strlng variable) **« <variable> 

<substring spec> ::» <first char >C » <subs tr i ng length)] 

<first char> ns <posltlve integer expression) 
<substr|ng length) ::= <positive integer expression) 

J * 

Values of string variables are ordered n-tuples of character 
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6.6.2 SUBSTRING REFERENCES 

values (or the null string)* Substring references yield fixed 
strings defined as follows* 

Let 'S 1 denote a string whose current length is n. 

If 1 <* I <* n and 1 <* k <= n+l-i* then 

a) l S(i) f yields a fixed string of length one* consisting of 
the i-th character of Sj 

b) , S(i*k) r yields a fixed string of length k* consisting of 
the i~th through the (i+k-l)~th character of SJ 

c) «S(i**P is equivalent to « S C i *n- i *1 ) • ♦ 
Otherwise* an error results© 

£*£iXl£JU s 

If a string variable is declared and initialized by • 

l&L S :-Si£iaa<6) o£ £h^n :« 'ABCDEF'J 

then the following relations hold 

S(l) « »A» S{2*5) » *BCDEF» 
Sib) »■ «F« S(2**> - S<2*5> 
SU*6) « S S(l**> « S 

If a pointer variable is then declared and initialized by* J 

Jtai'ps * A si£iaa (6) a£ ■ fitian J= A s; * ! 

then ! 

PS A (i) and ps A (i*j) become valid references to substrings of { 
S* S 

Note that a string constant* even if declared with an 

identifier for denoting it* is not a variable* so that a 

substring of such a string constant is not a defined entity of 
SWL> eg*: 

£aa&£ str24 a 'helper*; 



string2 * a str24(3**) i "invalid substring reference — str24 

Is a string constant" 
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6.6*3 SUBSCRIPTED REFERENCE 



Subscripted reference) ::» <array variable) £<subscr i p ts>2 
<array variable) :j = <variable> 

<subscripts> *!=* <subscr i p t>{* <subscV i pt» 
<subscript> si° <scalar expression) 

A subscripted reference denotes a component of an array 
variable* whose value type Is the component type of the array 
variable* A subscript may be of any type that can be assigned to 
a variable of the corresponding index type. Note that* to this 
end* any subrange is considered to be of the same type as its 
parent range (or any subrange thereof)© 

ExaiBEls*- 

If an array variable is declared and initialized by ! 

SLSL A : &LL&& [1**53 o£ ia£flfl££ *» CI* 2* 3* 4* 5 3 
and an integer variable is declared and initialized by S 

££L i • iQ££fl££ :* 5 
then the following relations hold 

ACi 3 * 5 
AC i -13 - 4 

• AC i~43 ■■ 1 
However* the reference ACi+13 would be in error. 
If a pointer variable is then declared and Initialized by: 

z&l pa i A aL£as ci ••53 a£ iataafiL ** a aj 

then 

pA A Ci3 becomes a valid reference to components of A* 

£ayiiialSQ££ a£ QiaaiisiaaaliJLx a£ Alc&ys 

If the components of an array are a second array* then this is 
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6.0 VARIABLES* SEGMENTS* AND FILES 
6.6.3 SUBSCRIPTED REFERENCE 



f* *S At *t *J fi* * 



fully equivalent to a two-dimensional array (cf 4*3*3, Array 
Type)© Both declarations given in the following are equivalent 

iuc vect : anna* ci.#io] of acta* ci.ti63af caai 

X3L vect i &LL&1 C 1 * • 10* 1 * * 16 3 at L£ai 

and both of the following expressions for denoting a component of 
the array are equivalent: 

.vectC 10,143 
vect[103C143 



6.6*4 FIELD REFERENCES 

<field reference) s : * <record var i ab I e>* <f i e I d selector) 
<record variable) ::« <var*able> 

A field reference denotes a field of a record variable* Since 
field selectors are unique only within -the scope of their parent 
record type* the record variable must be specified* The field 
denoted by a field reference may itself be of record type* in 
which case 

<record • ar i ab I e>« <f i e I d selector)*<fieid selector) 

becomes' a valid field reference* 
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For the record variaole declared and initialized by ! 

iXEa tR a t££ft£jl age : 6* *66* ! 

married* sex 1 kafii£SQ> 
date ; £fi£&££l day : 1 • « 31 j» 

month : 1 * * 1 2 * 
year ': 70**8O 



XSL R * tR i» C23>£ai££'£i:iia>C3>5#73]J; ! 

the following relations hold 

R*age * 23 
R. married « £&!§.£ 
R.slx 9 £ tua 
R*date*day » 3 
R«date*month 2 5 
R*date«year * 73 

If a pointer variable is then declared and i n i t i a I i zed by 1 

XSL PR • A tR :* *RJ 
then 

pR A *age* pR A *married* «* e 
become valid references to fields of R« 

6.6.5 ADAPTABLE AND 30UND VARIANT REFERENCES S 

Adaptable and bound variant record types can be used as formal 
parameters of procedures* in which case they are referenced and 
treated as variables* In all other cases they must be addressed 
indirectly through pointers that are generally produced as 
by-products of allocation operations used to type-fix and 
allocate storage for variables of such types* 

The notation 

<polnter reference)* 

is used to reference such variables* and can be used as a 
variable reference (cf* 6*6*1)* For examples 

NCR/CDC PRIVILEGED 6*0 



SOFTWARE WRITER'S LANGUAGE SPECIFICATION 
Revision <* June 09? 1975 



6-18 
75/06/09 



'^ 



IWWWW/ 



>6.0 VARIABLES* SEGMENTS* AND FILES 
-''6.6.5 ADAPTABLE AND BOUND VARIANT REFERENCES 
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i,YE£ R a L££fiLd '•adaptable record type" 

f2 J £i£j.0fl<*>> "adaptable field" 

iia£ pR : A R J- Qij.; "pointer to adaptable" 
aiifi£&££ PR : 1101} "allocate fixed instance of R" 

PR A «« C100* •HENRY 1 ]; "initial value assigned" 
pR A *fl *» 2 * pR A «flj "change value of first field" 



6.7 EILE-UARIABLES 



An actual file is accessed through a file variable associated 
with that file* The association is effected by an £££Q 
statements and de-association is effected by a sls^g statement 
(cf* 10*5*2)* File variables take on as values an undefined 
record structure whose component values describe the kind and 
current state ?f the associated actual file In terms of the 
actual file type {cf* 4*8)* a file specification* and other 
pertinent information* 

<file varlable> ::« <variable> 



Mattlllia 8 If a file variable is assigned to another file 
variable* and either used for manipulation of a file.* then 
resulting changes in the file variable used are not irnpiicitely 
reflected in tne other file variable* The use of both file 
variables for simultaneous manipulation of the same file could 
result in serious errors* 



6.7*1 FILE SPECIFICATION 



A file variable is declared* by a file variable spec* in terms 
of an identifier* a file type* and an optional set of initial 
f i te attr ibutes* 

<f i I e variable spec) ::* <variable identif iers> s 

C<scope or storage attributes)] 
<f I I e type> "cf * 4*8" 
C <f I 1 e variable i n i t i a i I zat i on> 3 



A file spec consists of an optional set of non-repeated 
attributes* and is used to initialize file variables* to specify 
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(or respecjfy) file attributes in S££Q statements (cf« 10«5«1)* 
and to spell-out f i i e-var i ao 1 e constructors (cf« 5 2<,3)* 

<file spec> n^ <fiie attributes) 



<f i I e attributes) :j« <f i I e attribute) 0<file attribute)} 
< f I I e attribute) ::=» <old or new) 

<mode) 

<encod i ng) 

<pos i t i on) 

<actual file name) 

<page s i ze> 

<end of page proc) 



<old or *new> s : * #old 
<mode) : .: * ui&t ? #oijtJ 
<posltion) :s a #£iL§Jt 



#DfiH 

#2k£C *#iQ3 



<actual file name) ::» <string expression) 

<page size) ::=» #E&2£S,i2£ (<number of lines)) 

<end of page proc) * * * #B&ja£££&£ (<procedure reference)) 

<encoding) ::® #£ad&£.a£ (<codeset)) 

<codeset> •:« *ascii f 

1 e b c d i c f 

«asci i 63 ' 

»ascii612 e 

•native* 

<others as required) 



The #ald attribute indicates that the variable is to be 
associated with an existing file© The #new attribute indicates 
that a file must be created before such an association can be 
made § The creation of new files is effected by the fi£££ 
procedure* 

The a a da attribute specifies whether the file associated with 
the variable is to be read* written* or Doth* QiLaai files* 
JL£3iki& files* and biQa££ files may have both #ia and #2iit for 
<mode> simultaneously; but ELiQj; files may have only #aui f° r 
<mode>* 

The £Q£Q,eLiQ2 attribute specifies the external representation 
of a file (its so-called 'codeset.H* and implicitely indicates 
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the conversion process that is invoked during reading and writing 
of the file* An initial collection of codesets/ corresponding to 
existing r epr esent at i ons; is provided* The <codeset> value 
•native* will select the standard codeset for the machine on 
which execution is to occur* 

The EfiSJ.tj.oQ attribute permits the ogfiQ procedure to position 
the file at its beginnings its en dp or some existing point* (The 
use of the #asi£ attribute and its effects will be operating 
system dependent©) 

The ££iu§i £ii£ Q&G1§. is used solely to identify the actual 

file to a host operating system* Its lexical formation rules may 
be system-dependent* 

The #£a£I£§.i££ and #£afl£EL££ attributes are associated with 
print files only/ and define the size of a page and the procedure 
to be activated when- a page change is ready to occur* 

The eQd~fi£-£aag_£kocecijj r§, is a user-defined procedure that is 
called whenever the current line number for the print file 
exceeds the specified page size for the file* It is responsible 
for issuing a conventional page eject (cf* 10*5*5*2/ <eject 
statements* and its parameter list is assumed to be specified as 
f o I tows I 

<£.&£ <file identifier> : <prlnt file type>j 

l&l <lnteger identifier) : <integer type> "next page no*") 

If no end-of-page procedure has been specified for the file/ a 
conventional page eject is issued and the line number is set to 
one ( 1 ) • 

The user may set/ or reset/ these attr i butes d i r ect I y through 
the following procedures: 

#£§t£iagsi2^t <print file variab!e>*<n umber' of lines>) 

<number of lines) *** <integer expression) 

#£fi£fi&2£££2£{ <Pf lot file variable>/<procedure reference)) 

and may interrogate the current page size through the function 
#£UL£aa£&iZ£ (<print file variable)) * 
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6.7*2 FILE VARIABLE INITIALIZATION 



File variable initializations are used to specify one or more 
file attributes when declaring file variables* 

<file- variable- initialization 1 1 * 

: * <f i I e expr es s i on> 
S : = <indefinite file variable constructor> 

<indefinite file variable constructor> ::» £<f i I a spec>2 

<fiie-spec> :•« <file attributes> 

The actual file need not be completely specified with the 
declaration of the file variable* Any or ail of the file 
attributes* including the actual fife name* can be specified or 
re-spec if i ed with the s££Q statement used to associate an actual 
file with the file v a r i a b I e o 
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7*1 £QUEILAIIQfcLUMII£ 

A SWL program is a collection of ££aJL&Q!SQ£§. (cf« Section 10) 
and d^£lS£SiLi2a§. <cf* Section 7o3) which Is meant to be 
translated* via a saaailaiifiQ Process* Into a SWL object; ffladuJLfi* 
Object modules resulting from separate compilations can be 
combined* via a linking process* into a single object module* and 
may undergo further transformations into a form capable of direct 
execution by members of the IPL line*, 

The collection of statements and declarations may also include 
fiSmfiiigrtifflS riiLS££i£S5. fcf. Section 12) which are used solely 
to construct the program being compiled and to otherwise control 
the compilation process* rather than having any meaning in the 
program itselft The result of processing the collection 
according to these directives must be one or more valid 
£2fli£ila£i2Q UQi£s> which are distinguishable cases of a snails* 

Compilation unit> ii» <module declaration> f, cf* Section 7«2 ft 

Since statements are constrained to appear solely within the 
body of a aLQ.££dur& dasiatatiflQ (cf« Section 8*1)* compilation 
units consist solely of a list of declarationso All such 
declarations must be capable of being evaluated (cf# Section 
7*9) at the time of compilation© All variables declared in a 
compilation unit's declaration list will automatically be given 
the &taii£ "£t2£aaa attLlblLta (cf. Section 6.2«2)« 



7*2 HQQULEi 



A module is a collection of declarations packaged so as to 
make visible the identity of those objects declared within the 
module which are meant to be shared. with other parts of the same 
compilation unit or with separate compilation units* A module is 
introduced by a module declaration. 
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<module declaration> ?:» 

madyifi [(module identifier>3 £ ( (pr ongs> ) 3 J 

(modu I e body> 
msdSQd C(module identifier>3 

• (module identifier> s : » (i den t i f i er>C <a (i as>3 J 

"cfo 7.7.1 for semantics of alias. 11 ! 

<prongs> : 5 * (identifier list) 
<module body> ::* (declaration I i s t> 

declaration I i s t> ::« {(dec I ar at i on>;> 

The optional QS&dUl£ idfiQlLififiL can be used to provide 
exposltional clarity and to assist in post-compilation 
activities/ such as I inking and debugging© 

EL2Q&& are identifiers declared in the oody of the module* and 
- together with module packaging itself - are used solely to 
control the ££££& fi£ iii£QJti£i£L£ < cf » Section 7.3 thru 7.7) 

7.3 fi££LA&AIIQliS.AliQ-S£Q£E-Q£-IQ£IlII£I£Rfi 

Declarations introduce objects together with identifiers which 
may be used to denote these objects elsewhere in a program. 

<dec I ar at i on> ::* <type declaration> (cfo Section 4.1) 

{ (constant declaration (cfo Section 5.1) 

5 (variable declaration> (cf. Section 6tl) 

! (segment declaration> {cf. Section 6.4) 

5 (module declaration> (cf. Section 7.2) 

I (procedure declaration> (cf. section 8*1) 

! (label declaration> (eft Section 8.3) I 

J (empty> 

The programmatic domain over which all uses of an identifier 
are associated with the same object is called the ££££§ of the 
Identifier. Within a compilation unit* such a programmatic 
domain is either a module body (cf. Section 7.2) or a &ias!i body 
(cf. Section 7.3). In the former case* the scope is a 
declaration list; in the latter* a statement list preceded by an 
optional declaration list. 

The scope of an identifier is determined by the context in 
which it was declared and by optional snaafi 2£i£itlUtaS (cf. 
Sections 6.2.3* 8.1 and 7.7) which may be associated with 
declarations of variables and procedures. 
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i?o4 MODULE - STRUCTURED SCOPE RULES 

7.4 MQflULE-r-SiaUCIUREQ-SCDEE-RULES 

Modules are static constructs designed solely to control the 
scope of identifiers according to the following rules: 

1. The scope of an identifier declared in one of the 
constituent declarations of the body of a module* is the body of 

that module. 

2c An identifier whose scope is the body of a module* and is 
also fisted as a prong of that module has its scope extended 
•outward' to include the body of the module or block which 
includes the module declaration as one of its constituent 
dec I ar a t i ons . 

3. Identifiers (of variables and procedures) whose scope is 
the body, of a compilation unit* and are also listed as prongs of 
that compilation unit* have their scope extended 8 o u t w a r d * to 
include object programs resulting from other compilation units* 
SS2E& a££>Li&u£&& (cf. Section 7*7) may also be used to specify 
such extensions of scope for variables and procedures. The 
prongs of a compilation unit are constrained to identify only 
variables and procedures* and the &d£i §.£SLES &£triby£e is 
automatically given to any variable or procedure whose identifier 
Is listed as the prong of a compilation unit* unless it is 
explicitly declared with one of the other scope attributes. 

7.5 &Lfl£H£ 

A block is either a becjiQ s.£at£!D£D£ (cf. Sect i on, 10 .2 ^1 ) or a 
&£££&£h!£& d££i££aii£Q (cf. Section 8). A block body consists of 
a statement list preceded by an optional declaration list. 
Blocks have three functions: 

1. Like modules* blocks control the scope of identifiers. 

2. Unlike modules* blocks control the processing of 
declarations and determine wnen declarations take effect {cf. 
Section 7.9) 

3. Unlike modules* blocks include statements* which 
translate into algorithmic actions in the resulting program. 
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7.6 aLQ£H,=.SIRUaiUSEQ.S£D£E.RULES 

1# Except for field £&i&c££L& (see below)* the scope of an 
Identifier declared in the constituent declaration list of a 
block is the body of that block* 

2. If an identifier ia&ais (cf. Section 10) a statement . of 
the constituent statement list of a block* then its scope is the 
body of that block* However; if an identifier labels a statement 
of one of the constituent statement lists of other &t£U££UL££l 
Sla£aBl£Q£s (cf. Section 10*2); then its scope is restricted to 
that statement list* 

3o If the scope of an identifier includes a block* then its 
scope is extended 'downward 1 to include the body of that block* 
unless the body includes a re-declaration of the identifier© 

4. Field selectors are identifiers introduced as part of the 
declaration of a record type (eft Section 4.3c4) for purposes of 
selecting fields of records {cf. Section 6o4»4). Except for the 
restriction tnat field selectors associated with the same record 
type must be unique* identifiers used as field selectors may be 
re-declared with Impunity. 

5t Except for field selectors* no more than one declaration 
of an identifier can be included in the cons t I tuent declarations 
and statements of a block's body. 

7.7 ££QRE-AIIBIftUIES 

« 

The scope attributes &d£l* &L&Z and &x££LQa! (cf. 6.2.3) 
cause the scope of identifiers to be extended* in a discontinous 
manner* to include other compilation units* but do not otherwise 
contravene either module-structured or block-structured scope 
rules* 

Variables and procedures that are part of one compilation 
unit* but are meant to be referenced from other compilation 
units* must have tne &£t£i attr i bute associated with them either 
by explicit declaration or by. virtue of having their identifiers 
listed as a prong of the compilation unit. Other compilation 
units which are meant to reference such objects must declare them 
with the XL£f attribute. 

Variables* but not procedures* may also be declared with the 
£&££LQiil attribute* which is intended to permit S^tL programs and 
programs written in other languages to share data* Variables 
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with the sxtfitaal attribute may be referenced in any compilation 
unit in which they are deciarede 

Neither &£.&£ nor g,&£g.LQ£i variables can be initialized (cf* 
Section 6o4)* and all KfilSX^ &LS.L anc * £>i£S,LQ£i variables are 
automatically given the sis£i£ Staiaa.fi a££Liim£S, . (cf* Section 

6*2*2) ~ ' 

The dec I ar a t i ons ' f or objects shared among compilation units 
must match; for example* an identifier with the xdgi attribute in 
one compilation unit and the z^ef attribute in other compilation 
units must denote tne same object in all such compilation units* 
Violations of such matching rules are detected during the linking 
process* 

7*7.1 ALIAS NAMES } 

An f alias* is an alternate spelling which may be specified for 
an identifier* Its reasons for existence are varied: to meet 
system-requirements of spelling which are Invalid in SWL* to 
equate two differing spellings for an entity between two 
different compilation units* to avoid identifier spelling 
conflicts among different compilation units or with system 
standard names* etc* 

An alias is to be used outside of a compilation unit only* and 
will not function as an alternative spelling for an identifier 
withinthe compilation unit in which it is defined as an alias* 

Aliases may be furnished for identifiers of modules* 
procedures* and variables by following the identifier associated 
with a declaration of such an object by an aiiaS~5fi££ilJL£&£i2Q«> 

<alias> na §!i&s f <alphabet> i <alphabet> > ' 

In order for an alias to *reach f the host system* it must be 
associated with an object that is externalized in some way: by 
virtue of being £&££LQai* d* xr&f r d* or sd^i'd (either explicitly 
or by being pronged with an outermost module)* or by being 
associated with the identifier of the outermost module* All 
other aliases will be inoperative except for taking up room 
during the compilation process* 

If an identifier which is externalized has an alias specified* 
then only the alias will be made known outside of tne compilation 
unit© (i«e©* the identifier itself will not be made known 
outside of the compilation unit*)^ 
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ffiflsluJLs outer alias ■PT*T4* f (x*a); «,*• 

£L2£ C>lii£l3 searcher aii2S ff util^221 f .(£&£ Ist2**«„ 

itSL V2 alias »flag2S V3 alias •T##3.1B» : E&d£i 3-iQtaflS£i 

fll£dyis outertx* a) ; "scope of x and a is extended 

outward to the body of module 
or block including this 
declaration 18 

blockl* &£SiQ 

£&l x* y> z } iaiaaan J • ••■ ; 

x s « y * 2 ; "blockl*s x* y* and z" 

y :» a + b ; "blockl's y* a; and b (see inner 

modu I e be I ow ) " 
2 * * P 4- 2 j "Invalid: not within scope of p 

(see block2 below)" 

• • • t 
block2* 

1£L x> y i iQ£§.aeL } 

"Valid redeclaration of x* y" 
JU£ "P 2 £&&£i3 ia£ea&L> 

"scope of p extended to other 
compilation units* but not" 
extended to include blockl" 
q • £&£.&£J iQl^a&L > "<\ from different 
compilation unit" 
x «* y ♦ 2 i f, z of blockl and x and y of bfock2" 
• • • } 

aad biock2 ; 

• •« > "Now back in blockl" 
asdula innerta* b) ;"StiM in blockl* but within 

Inner module" 
i&£ a* b i iQtsa£L } "a* b are within the scope 

of blockl* since they are pronged" 
&&L 2 s iQl££L££ ; "Valid redeclaration of z? 

since it is not pronged" 
o«« } "Other declarations of inner module" 
iaade.Qc| inner 
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7.8 EXAMPLES OF SCOPE RULES 



«WWWWW»««WM««WW*»«WW*»«WVW«WWW«WMM««WtfMWW«M»f3W««MW«WWW< 



fiQd blockl ; 
block3* b^aiQ 

"Valid redeclaration of x* y* and z" 

O • ft } 

£Qfl[ blocK3 } 
Qlfid^Qd outer J 

•t $$$$$* it 
Ll* i£ x < y itl&Q • «♦ ; 



L2j x :« z / y ; »e« ; aaJLa 12 ; «»« j 

"Valid: L2 can be reached from within 
th i s statement I i s t" 

SLLlt -X > Z itlfiQ ♦ e . i 

x :* y / z j *»« j aa£a li > *•• J 

"Valid? Scope of Ll is entire block 
containing the if statement" 



alsa y * s y - a ; ••• j aa^o L2 ; ... ; 

"Invalid* L2 cannot be reached from this statement list' 1 

I£aad 



7*9 QEtLA&Aiias-EaaaEssitifi 



7.9J BLOCK-EMBEDDED DECLARATIONS 



Except for the constituent declarations of a compilation unit 
(see below)* declaration processing is governed solely by 

block-structure* During compilation* all constituent list of a 

block are gathered together and are processed en-masse* all such 
declarations coming into effect simultaneously* 

Block-structure also governs declaration processing during 
execution of the resulting programs. On entry to a block* ail 
declarations included in the block's constituent list are again 
collected together* evaluation of declarations that could not be 
completely evaluated during compilation Is completed* storage for 
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7o9«l BLOCK-EMBEDDED DECLARATIONS 

automatic variables (cf. Section 6©2©2©1) Is allocated* and aN 
Identifiers declared by such declarations become accessible© On 
exit from a block* all identifiers declared within that block 
become inaccessible and the values of automatic variables become 
undef i ned o 



7©9©2 COMPILATION-UNIT— EMBEDDED DECLARATIONS 




7.9*3 ORDER OF EVALUATION OF DECLARATIONS 



Apart from the above rules* no specific order of evaluation of 
declarations Is defined* nor is the order of evaluation of 
expressions entering into such declarations defined© Thus* care 
must be exercised in spelling-out declarations© For example! 



L J* 5; U s=» 3} 

feaaia 



l&L A * £££.&£ CI*©L *=** U* l««L3 x a£ • ••> 



© • e 



&a& 



In the above example* the Integer variable L has been assigned 
the value 5 and the union variable (j has oeen assigned the value 
(integer* 3) prior to entry to the begin block© On entry to the 
block* evaluation of the index ranges of the array £ must be 
done© This evaluation can result in either AE1©*3* 1©*3] or 
AE1©«3* 1©©53* depending on which indicia! expression is 

NCR/CDC PRIVILEGED 7©0 



SOFTWARE WRITER'S LANGUAGE SPECIFICATION 

75/06/09 
Revision 4 June 09> 1975 

7,0 PROGRAM STRUCTURE 

7.9,3 ORDER OF EVALUATION OF DECLARATIONS 

evaluated first (cf g Section 9o2ol for the value conformity 
operator *:=j* which* in this case; would assign-^ the value 3)« 
Since no precise order of evaluation is guaranteed* tne result of 
the above program fragment is undefined* 
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A procedure declaration defines a portion of a program and 
associates an identifier with it so that it can be activated 
(i*e** executed) on demand by other statements in the language* 
A procedure can return a value of some basic type* in which case 
it is referred to as a function and is invoked as a factor in an 
expression* If" a procedure returns no value* it is invoked by a 
procedure call statement or a coprocess create statement* 

The value of a function is the value last assigned to its 
procedure identifier before returning (either oy failing through 
the procend* by a return statements or by an exit statement)* 
The results of returning by any means from a functional procedure 
prior to assignment of a value to the function designator (for 
the current execution) are undefined* 

A procedure call statement (cf* 10*3*1) causes the execution 
of the constituent" declarations and statement lists of the 
procedure after substituting the actual parameters of the call 
for the formal parameters of the declaration* Control returns to 
the next statement in line following the procedure call 
statement* 

A coprocess is a separate synchronous process* Instead of the } 
entire procedure being executed and then returning in line* 
coprocesses allow partial execution of a set of procedures with a 
single thread of control being passed back and forth amongst them 
through the resume statement* 

The create statement (cf* section 10*3*2) creates the ! 
necessary environment for the execution of a procedure as a i 
coprocess* Subsequent resumption of a coprocess causes execution J 
to commence with the successor of the last executed resume 
statement of the coprocess* If a coprocess has been created but 
not resumed* then execution of a resume statement designating 
that coprocess causes execution to commence at the constituent 
declaration list of the procedure used to create the coprocess* 
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8.1 P-ROCEDURE DECLARATIONS 

8.1 £RQ££QUS£-QE£LARAIIQMS 

There are two forms of procedure declaration: 

<procedure declaration) ::= 

££££ L £Lfi£ 1 <proc spec) 
J E£2£[£<proc at tr i butes>23<pr oc spec);<proc bodyXproc end> 



<reference params) s:= 

£.§.£ <reference param) £ preference param> > 



<value params) *: = &ni <vaiue param>{ /(value pararn)} 



(proc attributes) s : =* <proc attribute){ /><proc attribute)} 5 

<proc attribute) *:* &d£i • LfiEdSE • <segment identifier) • . main • 

<pr oc spec) i i * J 

<procedure i dent i f i er > [(a I i as)](pr oc type spec) J 

(alias) ::* aiJUs. • <alphabet> { <alphabet) } ■ J 

u c f © 7«7el for semantics of alias" J 

<proc type spec) ::= 

C£(proc type a ttr i butes>2H(par ameter ' I i s t>] C(r etur n type)] 

<proc type attributes) ::» 

(null construct (for expansion purposes)) 

(parameter list) ::- {<param segment)^; <par am segment)}) 
<param segment) s:» (reference par ams) ! <va I ue params) 



(reference param) s:» { 

(formal param list) * C£ #£&l£i 23 (ref type) } 



(va I ue par am) : J * J 

(formal param IJst) : C£ #£§&£ 13(val type) } 

(formal param list) n^ (identifier list) 

(ref type) ::* (SWL type) 
(va I type) t t ■ ■ 

(type) 5 (adaptable type) J (bound variant record type) 

(return type) s J * (basic type) 

(proc body) n=» (declaration list) (statement I i st> 

(proc a(\6> :t^ E.£fi£^Od [(procedure identifier) ] 
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<procedure identifier) ::» <identifier> 

< function identifier) :: = <procedure identifier) 

The first form Is used to refer to a procedure which has been 
compiled as part of a different unit of compilation* The 
procedure must have been declared with the xcic^ attribute* and 
with an equivalent parameter list and return type in that unit* 

The second form declares the procedure identifier to b e a 
procedure of the type specified by its parameter list and return 
type* and associates the identifier with the constituent 
declaration list and statement list of the declaration© 

The procedure type is elaborated on entry to the block in 
which it is declared* and remains fixed throughout the execution 
of that block) i«eo all variable bounds* lengths* or sizes 
occurring in the type of the parameters are evaluated once. or*, 
entry to the block* and remain fixeci for ail calls on the 
procedure within that block* 

Outermost level procedures* i*e** those whose declarations are 
not contained in another procedure* must have a fixed type 
determined at compile time© Thus* none of their parameters may 
be of a variable bound type* Note that this restriction holds 
with respect to the &re£ form of declaration* since by definition 
it must refer to an outermost level procedure (Section 8*1*1* 
Proc Attributes)* Formal parameters of outermost level 
procedures may be of either fixed bound type or adaptable bound 
type. 

8.1*1 PROC ATTRIBUTES 

Proc attributes are essentially extra-linguistic features in 
that they have an effect on the output produced by the compiler 
rather than an effect on the meaning of the program. 

<proc attributes> * : » <proc attr i bute>{ *<proc attribute)} } 

<proc attribute) ti» &d£l J rgg^^a J <segment identifier) ! main J 

The attribute &£i£i may only be used on a procedure declared at 
the outermost J eve I* i*e** not- contained in another procedure* 
It specifies that the procedure should De made r e f er enceab I e from 
other units of compilation which have a declaration for the same 
procedure identifier with the &£&£ attribute* 

The attribute L££d£B specifies that the procedure is 
potentially representation dependent and gives permission for the 
use of those portions of the language that are representation 
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dependent (see Chapter 13)* 

The attribute Segment identifier 1 specifies that the code 
produced by the compiler for the body of the procedure should be 
allocated to the named segment along with other code carrying the 
same segment identifier* 

The attribute main is used to identify the first procedure of J 

a program to be executed* when so required by the system* It may ! 

only be present on a single outermost olock level procedure of J 

the outermost module of a compilation unit* J 

If more than one compilation unit is to be linked together for # 
execution* then only one procedure with the maiQ attribute may be ! 
present among all those compilation units being linked© J 

8*1*2 PARAMETER LIST 

Variables that are referenced but not declared in the body of 
a procedure follow normal scope rules* i»e*> the references are 
bound to the declaration environment of the procedure* A 
parameter list is a set of variable declarations which provides a 
mechanism for the binding of references to the procedure call 
environment© This is accomplished by providing the procedure 
with a set of values and variables — so-called actual 
parameters-- at the point of call* 

<parameter Mst> J J» (<param segment>{> <par am segment)}) 
<param segment) ::* <reference par ams> 1 <va I ue params> 

<reference params> Jt s 

£g£ <reference param> £ preference param> > J 

<reference param> J : =* I 

<formal param list> * C£ #L£Sd 23 <ref type> ! 

<value params) s:« j^aj, <value param>{ *<value param>} } 

<va I ue par am> t : * J 

<formal param 1 i s t > : C£#Lfiaii 23 <val type> } 

<formal param list> :i« identifier lis t> 

<ref type> : 5 * <SWL type> 
<va I type> t : * 

<type> J <adaptable type> • Abound variant record type> 

Two methods of passing parameters are provided* ca I I -by-va I ue*> 
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designated by vai# and cal l-by-reference^ designated by L&f* 

A ca I I -by-va I ue parameter results in the creation of a 
variable local to the body of the procedure* The value of the 
corresponding actual parameter is assigned to this variable at 
the" time of the procedure call* See Section 1 © 3 • 1 for precise 
rules governing ca I I -by-va I ue parameter passing© 

The type of a formal ca I I -by-va I ue parameter may be any data 
type* adaptable type or bound variant record type except for the 
so-called non-value types: heaps; arrays or stacks of non-value 
types; and records containing a field of a non-value type© 

A ca II -by-reference parameter results in the formal parameter 
designating the corresponding actual parameter throughout 
execution of the procedure© Assignments to the formal parameter 
thus cause changes to the variable that was passed as the 
corresponding actual parameter. See Section 10©3©2 for precise 
rules governing call-by-ref parameters© 

The type of a formal ca I I ~by-r ef erence parameter may be any 
SWL type© 

The read attribute applied to either Kind of parameter 
prohibits explicit assignments to that parameter or any component 
of it© 



8*1©3 FUNCTIONS AND RETURN TYPE 



wh i ch is a 

s tatemen t 
within the 



A procedure may return a value of a specified type* in which 
case it is referred to as a function© A function is activated by 
a function designator (see Factors in Chapter 9)* which is a 
component of an expression© The function is given a value by 
assigning to its procedure identifier© The type of the value 
returned is specified by the return type© The return type must 
be specified in the proc type spec for any procedure 
functional procedure (cf© 4©&©2); and an assignment 
(at least one) to the procedure identifier must occur 
procedure body© 

<return type> ::=* <basic type> 

The value of a function is the value last assigned to its 
procedure Identifier before returning (either by falling through 
the procend* by a return statements or by an exit statement)© 
The results of returning from a functional procedure by any means 
prior to assignment of a value to the function designator (for 
the current execution) are undefined© 
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A function may neither be invoked by a procedure call 
statement nor used as a coproc« (It may however lie within the 
dynamic execution of a coproc> and there is no restriction 
against its containing a resume statement*) 

EL2£ 6CD (\£al m* n t iQt&a£L J ^ef x* y* z * in£ea££> l 

l&L al> a2> bl> b2> c# d> q* r : ia&fia&L J ,lf n > 0>n > 0" 
"Greatest Common Divisor x of m and. n> 
Extended Euclid's Algorithm* 
This could have been written as a 
functional procedure*' 1 

al s » ; a2 * 3 1 J bl t= 1 ; b2 * s ; 

c* s m;d: s n; 

utiilfi d /■ da 

"al * m + bl # n * d* a2 * m + b2 * n * c 
gcd(c> d) ■ gcd(m* n ) " 

dt«c/d;r* s c nifid d ; 

a2 ** a2 - q * al j b2 : - b2 - q * bl ? 

c :« d } d u r J 

r'i» al i al «» a2 } a2 »» r'{ 
r ' i * bl j bl : * b2 J b2 • * r' 
ii!aii£Qd J 

x :* c} y :=* a2j z :* b2 

11 x » gcd(m> n)» y#m + z*n* gcd(m* n> fl 
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8.0 PROCS, COPROCS> AND LABELS 
8« lo 3 FUNCTIONS AND RETURN TYPE 

tl $ $ $ $ <e M 

"functional procedure Finder 11 

ELfifi Findertv^i wanted: ident* 

££f table : a££a£ C0..473 of entries : retype) A retype ; 

xaL k j iat£fl££ J 

£2£ *< :=s ° £2 47 do "trivial search" 

' i£ tabletk3.fn * wanted the& 
Finder := A tableCk] 

F i nder • - nil 

i£aad 
tacsQi 

E£fi££Qd > "Finder either set to point 

to table entry or set to oil" 
• © • 

K22 ** k22 -6- Finder A .kstep | 

8.2 dQERQaS 

A coproc is created by execution of the ££&&£§. (cf.XQ.3.2) • 
statement! ! 

£££&££ (<pointer to coproc>* <procedure call s tatement> ) } 

where the coproc reference series as a linking mechanism between 
(among) two (or more) synchronous coprocs in execution. 

Any declared procedure may be designated as a coproc in a 5 
fiLfiata statement© S 

Execution of the £££&££ statement does not cause execution of 
the designated procedure (in the procedure call statement part) 
to commence. It does cause the creation of a separate 
environment (for procedure entries* parameter passing* and 
procedure exits)* and the passing of actual parameters* including 
those called by value. 

Execution of the procedure body of tne coproc begins with the 
execution of a £££klil]£ command using the coproc reference (cf • 
10.3.4). Such execution begins with the declaration list of the 
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8eO PRQCS, COPROCS* AND LABELS 
8o2 COPROCS 

procedure body (at which time automatic variables are allocated)* ! 
and then with the first statement of the procedure body© ! 
Execution of the coproc continues until a L££U01S statement is 
encountered in execution which returns control to the 
initializing coproc or alternately causes execution to begin for 
another coproc or to continue in another coproc* 

The form of the coproc £e&MQia statement (cfe 10*3*4 ) is* 

LSSUQ1S (<pointer to coproc>*)J *•« 

If such a resume statement occurs dynamically (during program 
execution) at some point prior to designation by a £££a£fi 
statement for the coproc or at some point after the coproc has 
been destroyed (cfc 10*3*3) then the program is in error* (This 
is because the environment for the designated procedure has not 
been — or no longer is — set up as a coproco) 

When an exit is made from a dynamically active coproc by any 
means other than a £§.£UQie* then the program is in error* The 
execution of a LS.SUQ1S statement will always transfer control to a 
different coproc at* 

(a) the successor of another £££UQS statement of another coproc* 
or 

(b) the beginning of a specified coproc for which a cmig has 
already been done* but fbr which no £&§.U01£ has yet been 
done* 

A ££&mQ£ statement designating the coproc in which the ££SkLQi£ 
statement occurs is in error* 

The main program which initializes the other coprocs with 
£££&££ and £§,§.UE§. statements is always implicitly a coproc to 
those other coprocs* In order to allow it to be resumed by these 
other coprocs* it must determine its own 'identity 1 using the 
#£aE£2£JL& function (cf* 11*2*13) and assign it to a jointly 
known variable of type pointer to coproc (see CPPC in example 
below)* 
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8.0 PR0CS> CQPRQCS, AND LABELS 
8.3 LABEL DECLARATIONS 

8*3 uaEL-QEGU&AIICUiS. 

Label declarations serve to define those labels of the block 
which may be assigned to a pointer to label variable* passed as a 
parameter to a procedure or function* or ser\/e as the destination 
of a &o£& a&ii statement which crosses a block or procedure 
boundary (see 10*3.8* Goto Statements). 

<label declaration) ti* i&b&i OabeOO <label>} 
<label> ::* <i dent I f i er> 

All labels in the list must also appear in the block* labeling 
a statement which is not contained within a nested block (see 
10.0* Statements). 

Note that only those labels which are assigned* passed as a 
parameter* or are the destination of a non-local goto statement 
are required to be declared in a' label declaration* but other 
labels of the block are ■ permi tte-d« 

MQIE* Label declarations are required only In'ISWL programs* J 
and should not appear in SWL prograoisc J 
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9o0 EXERES^IQfclS 



Expressions are constructs denoting rules of computation for 
obtaining values of variables and generating new values by the 
application of operators* Expressions consist of operands ( i • e * 
variables and constants) operators; and functions. Constant J 
expressions (cf* 5«1«1) are expressions involving constants and ! 
a subset of the operators and functions© ! 

<expression> **» <simple expression) 

!<simple expr ess i onXre I at i onal operator) 
<simple expression) 

<simple expression) M* <term> S <sign)<term) 

•<simple expression) 

<add i ng oper atorXter m> 

<term) * I =* <power)l<termXmufti plying operatorXpower) 

<power> ** = <factor> J <power> <exponen t i a t i on operator) <factor> 

<factor> ns <conf orm i ty> ! <var i ab I e) i <cons tant) 

Kdefinite value const ructor)} A <var i ao I e) I *<l abe I > 
! A <procedure identifier) !<function design ator) 
I (<expr ess i on)) ! <not oper atorXf actor > 

<conf ormi ty> : : * 

<type Identifier) <type test operator) <union variable) 
Kpointer variable) <pointer type test operator) 

<un i on var table) 
!<variable) <value type test operator) <union variable) 

<type Identifier) :t« <l dent J f I er> J iQ££2&£ tStJac « bsslsaQ tJLSal ! 

<union variable) tt 3 <variable> 

<function designator) j:= 

<procedure r e f er ence) ( <actua I parameter) 
{*<actual parameter)}) 

!<procedure referenceX ) 

<procedure reference) i * « <procedure identifier) 

J<pointer to procedure) A 
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<actual parameter) ::» <expr ess i on>! <procedure identifier) 

{<l abel> 

<type test operator) ::= t: 

<pointer type test operator) : : =» : A : 

<value type test operator) ::» **t 

<not operator) JJ= Qa£ 

<exponen t i a t i ng operator) ::« #$ 

Multiplying operator) n^ * { / J m&$ J §qc| { caQ^ 

<s i gn> : : « + J - 

<adding operator) : : =* + I -!■ fit ! xor } yifi£ 

Relational operator) ::« < { <** i > {. >» 5. «■ • / s • iQ 

E&&aiEl£si 

Conformities! ££ai ** basicvar 

pint : A : basicvar 
I nt {°J bas i cvar 



Factors: x 

15 



(x 4* y + z) 
f(x * y) 

Scolorset Cred* c > green] 
Qfii P 



Terms : x ■* y 

i / 3 



p and q 

(x <* y) arjci <y < z) 



Simple expressions: x + y 

- x 



huel 0£ hue2 
i ^ j W ^ 1 

hue - Scolorset Cred> green] 



Expressions: x * 1 

P <* 2 

(i<j) * (j<k) 
c in huel 

9.1 EYALUmQN_QE_EAaiQ&S 

The value of a conformity as a factor is the boolean value 
£LU£j if the type test is successful* and £aiE£ otherwise (see 
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9*1 EVALUATION OF FACTORS 



9*2«1* Type Test Operators)* 

The value of a variable* as a factor* Is the value last 
assigned to it as possibly modified. by subsequent assignments to 
its components* 

The value of an unsigned number is the value of type iQt:gag£ 
or ££.ai denoted by it in the specified radix system* 

String constants consisting of a single character denote the 
value of type £bia£ of the character between the quote marks* 

String constants of q (q > 1) characters denote the fixed J 
StLiQfl (Q) value consisting of the characters between the quote 
marks* 

The value of a string when used as a factor in an expression 
Is as follows: if the current length (see following paragraph) of 
the string is zero* its value is the null string; otherwise* its 
value is a fixed string of the same current length* In 
particular* substrings of varying strings are fixed strings* The 
value of a character wnen used as a factor in a string expression 
is a fixed string of length one. 

The £U££SDt£ l&QSliLb of a string is defined as follows: The 

current length of a varying string is defined to be a whenever 
its value is a fixed string of length m and is defined to be zero 
whenever its value is the null string* The current length of a 
fixed string Is equal to its length* 

The constant qlJL denotes a null pointer value of any pointer 
type* 

A constant identifier is replaced by the constant it denotes* 

If this in turn is a constant identifier* the process is repeated 

until a constant of one of the above forms results* The value is 
then obtained as above* 

The value of a definite value constructor is the value 
obtained from the values of its constituent expressions of type 
specified by its type identifier* 

The value of an up-arrow followed by a variaole of type T is 
the pointer value of type A T that designates that variable* 

The value of an up-arrow followed by a procedure identifier of 
proc type P is the pointer to procedure value of type A P that 
designates the current instance of declaration of that 
procedure* 
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9.1 EVALUATION OF FACTORS 



IWWM«/#W«MW( 



The value of an up arrow followed by a label Is the pointer to 
label value of type A i.abg,i that designates the current Instance 
of declaration of the laoel (see 10*0* Statements)* 




The value of a parenthesized express ion. i s the value of the 
expression which is enclosed by the parentheses* 

The type of the value of a factor obtained from a variable or 
function designator whose type is a subrange of some scalar type 
i s that scalar type « 

9.2 QEERAIQRS 

Operators perform operations on a value or a pair of values to 
produce a new value* Most of the operators are defined only on 
basic types* though some are defined on most types* The 
following sections define tne range of app i i cab i I i t y* as well as 
result* of the defined operators* An operation on a variable or 
field which has an undefined value will be undefined in result* 

9.2*1 TYPE TESTING OPERATORS 

The type testing operators are used to* 5 

a) determine the type of the value last assigned to a union J 
var J ab I e J { 

b) permit references to that value by concurrently assigning S 
ft (or> optionally* a pointer to the value) to the variable J 
(pointer variaole) being used as a comparand. } 



The type being tested-for can be specified by a type • 

identifier* the type of a variable* or the type pointed-to by a S 

pointer variabiec These operations are permitted only if a } 

variable of the type being tested-for can be assigned to one and I 

only one member of the union* { 
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9.2.1 TYPE TESTING OPERATORS 



*t*+t**j*s*t*tnt*f**Aa*4Mreiyt*>*i*f*t*f**4 



The type test operator (*i) expects a type identifier on its 
left* and returns the boolean value £L!JS if the type identifier 
specifies the same type as the type of tine current value of the 
union variable on the right* and £M&£ otherwise* 

The pointer type test operator (: a j) expects a pointer 
variable on its left* and returns the boolean value £r^£ if the 
pointer variable is of type pointer to the type of the current 
value of the union variable on the right© If it is* then the 
pointer variable on the left is caused to designate the value of 
the union variable; otherwise* the value is faj_§.e and the pointer 
variable is assigned the value Qil* 

The value type test operator (***) expects a variable on, its 
left* and* returns the boolean value t.L\l& if the variable is of 

the type of the current value of the union variaole on the right* 
but otherwise returns the value £ais,S« When the boolean value 
returned is iLUS* then the variable designated on the left is 
assigned the value of the union variable© Otherwise the variable 
designated on the left is unchanged* 



9*2*2 NOT OPERATOR 



The not operator* Q&£* applies to factors of type boolean and 
set© When applied to type boolean* the meaning is negation; 
i«eo* aa£ ££&§. * £ai££ and Qot: falsa 5 true© When applied to a 
set* the meaning is set complement with respect to the base type 
- i*e©* the set of all elements of the base type not contained in 
the spec i f i ed set • 
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9*2*3 MULTIPLYING OPERATORS 



The following table shows the multiplying operators* the types 
of their permissible operands; and the type of the result* 



4. «.^-^«— ..-« — ,~ —w,. » ^.— ««.^.}. «.« — , — 4. . «.- 

# Operator 1 Operation 5 Operands 5 Result 


J.* • multiplication { £aai • LSfll 

S \ • iataasL • iataaaL 

! / • integer division 5 iQ£aaa£ J iQfaaaL 
1 1 for a; b^ n positive ! i 

1 J 1 ntegers ! S 
} 1 a/b » n where n is the ! 5 
J 5 largest integer such S 2 
« .2 that b^n < 3 a ; j 
! ! <-a)/b * (a) /(-b) * I 2 

2 2 (a/b)*a/b 2 (~a)/(~b)! J 


^ ^w*w»w»«ww>«**»«c»«ww>w>«»w 9 '»w>«w«»«aw>«ww>^w«»«»«»w>«2. «> «WW> «»«»«•«• W.W> «• «W WJt «w ^. w»w» w> «• «W «W «»«» «W«WWB -w 

• J real division ! ca^i 2 LSfll 

• Sail • r^naindar function ! integer J iQ&aaaL 
S • a (nod b»a-(a/b)*b ! ! 

4. -™4.« «» «.-«,. w. 4. — ._-._. 4. 

! I £ma aasl falsa 2 falsa • J. 
2 • Ima aad itua £ i£ya J ! 

• \ falsa aasl falsa 2 falsa 2 ! 
J • falsa and tLua sfalsa ! J 

1 ! - the set consisting of 5 2 
! 1 elements common to the J J 

1 1 two sets J 2 

2 £aad ! conditional ana j kaaiaaa. ! Uaaiaaa 
! 1 l£ya aad ££ua » i£ua ! • 

• . • t£ya and false 2 falsa • 5 
2 2 falsa aad. falsa 1 falsa • • 
S 2 falsa aodi ima * falsa* 5 8 

5 l^Whenthefirst operand ! } 

• J is falsa* the second J • 
S ! is never evaluated. ! ! 



+ — 4.W.W.W. .*— — -,•. — . .w, - 4. ,— 4. 4. 

Note* The operator aaQ£l may not be used for set intersection as 
add is used. 
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9*2*4 SIGN OPERATORS 



The * operator can be appJied to integer and real types only. 
It denotes the identity operation and results in integer or real 
type respectively — i.e.* a = + a* 

The - operator can be applied to integer and real types only* 
It denotes sign inversion— i.eu -a 2 - a* 



9.2.5 ADDING OPERATORS 



The following table shows the adding operators* the types of 
their permissible operands* and the type of tne result. (See 
also 10.1.1 for the successor assignment statement and 
predecessor assignment statement* which are analogous to the 
add! ng operator ) 
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•;WWWWW/V«««WW««WW«WWW«MMMMWW«W««/VWAfMWW^rj«W«M«ftViWM 





Oper ator 


«. 4. « 


Opera t i ons 




■»4-- 


Ope r ands 




Resul t 


r ■ 


+ 


4. • 


addition 








» 4. « 


iataaaL 
naai 






V ■ 


concatenat 1 on * 




«•-$.« 


sJLLiaa 


■* V* 


siniaa 














and siLiQai 
















£t£iaa 




sLciaa 


*• 




«»4.- 






•.«?.«, 




a» JU« 




~ 




subtr action 




"• V " 


iataasL 


=» V" 1 


iQieaer 






X. 








££3i 


■» J»« 


nasi 






V 


boolean difference 




aaalaaa 


"• V" 


eaalaaa 








lLU£ ~ i£U£ 5 £ 


3.1s. §,* 
















t£Ufi. - £ JilS.fi 


Z trug 














■JLm 


LSlLSLS. ~ i£U£ £ 

£alsa - £ala£ 


£alS£* 

i £iil££ 


«.«*.« 












■y-a 


set difference 






§.§.£ a£ type 


"" *r • 


&££ a£ type 








- the set consisting of 
















e 1 ements of the left 
















i'per and that 


are not 
















a 1 so e 1 ements 


of the 










4.. 




«>4>« 


r i ght oper and 





»4*« 




.+- 






££ 




logical f or s 






saaiaaa 


aaaiaaa 




ilS£ ** 


*« 


&£U£ ££ 1LUS. £ 

£ai££ a£ ££U£ 2 
£al£& on £als 


true, 
» true 
lLkiS» 

a 2 £jLiaa 














set un i on 




"•"r " 


sat fit type 


» v« 


sa£ a£ type 








-• the set cons i 


sting of 
















ail el ements 


of both 








' 








sets « 












*■ 


2£££ 




exclusive 'or 1 

JtLUfi £££ £LU§ i 
l£U£ £&£ £ailS 

£alss. *ox tLiia 
£ai£& 2s.an £alsa 


£&l££L 

z lcy§ 
2 £als& 


- + . 

«•.£■« 


aaaisaa 




aaaisaa 






V* 


symmetric difference 
- the set of elements 


M»*g*« 


is.t 21 type 


»«¥>«> 


aat a£ type 








cont a i ned in 


e i ther 










i 






set but not both sets© 











+- ^ . . . + „„.«. — + . ._.{. 
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9.2.5 ADDING OPERATORS 

* The rules for concatenation are as follows* The adding 
operator* • + • * is used as the dyadic concatenation operator© The 
result of concatenation is a string whose current length is the 
sum of the current lengths of tne two operands and whose value is 
the string obtained by right-extending the left operand by the 
right operand, 

** If evaluation of the ufiL (unconditional qh) is found to be 

necessary in the execution of the statement in which it occurs* 

then the evaluation of both operands is guaranteed to occur© The 
UQL ffl a V not be used as a set union operator© 

9©2©6 RELATIONAL OPERATORS 

Relational operators are the primary means of testing values 
in SWL©* They return the boolean value £tu£. if the specified 
relation holds between the operands; and the value fai&£* 
other w $ se© 

9 ©2 ©6*1 £ttmEati£2Q-a£-S£aiaLS-aQ£l-.Rfiai& 

AM six comparison operations < (less than)* <= (less than or 
equal to)* > (greater than)* >=* (greater than or equal to)* »■ 
(equal to)* and /* (not equal to) are defined between operands of 
the same scalar type* operands of type £.eai* and operands of type 
&£LiQ£ or stliQa and ch££© 

For operands of type ifl£g3SL or L&al> they have their usual 
meaning© 

For operands of type bo^I^aQ the relation £ai£& < &LU& defines } 
the ordering. ! 

For operands* a and o* of type £ii&L* the relation a g& b holds { 

if and only if the relation Hat^afiEJa) o£ $iQ£&aa£(b) holds* ! 

where &£ denotes any of the six comparison operators and ■ $iQ£ea££ • 

is the mapping function from character type to integer type S 

defined by the ASCII collating sequence© J 

For operands of any ordinal type T* a » b if* and only if* a 
and b are the same value? a < b if* and only if* a precedes b in 
the ordered I ist of values defining T. 
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9 e 2 » 6 * 2 Comparison of Direct Pointers 

9 . 2 . 6 • 2 £aQaaLisLaQ-a£-QiLfifit-.EaiQtflL£ 

Two direct pointers can be compared if they are pointers to 
either equivalent types or potentially equivalent types* In the 
latter case; one or both of the pointers may be pointers to 
variable bound types/ adaptables types and bound variant records 
- whose type must be determined' during execution of the SWL 
programe The instantaneous type of such pointers must De the 
same as that of the pointer they are being compared with; if it 
is not; the operation is undefined© 

1* Pointers to file type and pointers to. control type may be 
compared for equiality and inequality only* 

a) Two pointers to file are equal if they designate the same 
file var i ab I e* 

b) Two pointers to procedure are equal if they designate the 
same instance of declaration of a procedure* 

c) Two pointers to coproc are equal if they designate the same 
coprocess * 

d) Two pointers to label are equal if they designate the same 
instance of definition of a label* 

2. AM six comparison operators are defined for pointers to 
data type; for adaptable pointers and for pointers to bound 
var I ant type * 

a) Pointers of such type are equal if they designate the same 
variable* For pointers to variable bound type; adaptable 
pointers and bound variant pointers; this means that their 
Instantaneous type U.e*; including current bounds; lengths; or 
tag fields and variants) must be the same as the type of the 
pointer they are being compared withe 

b) Two pointers with oil value are always equal* 

c) The remaining comparison operations are defined as 
follows* Let 2£ denote any of the remaining operators <; <»; >»; 
>; and let £; a* r. denote three pointers of equivalent type* If 
P ££ q and q aa r hold true; then p aa r also holds true* 

9*2.6*3 £2aiBa£isaQ.a£-R£laiiit£-£aiQJt£L& 

Relative pointer comparison is allowed only for relative 
pointers of equivalent type* Two relative pointers are 
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9«2«6«3 Comparison of Relative Pointers 

equivalent if they are defined in terms of equivalent object 
types and equivalent parental types (cf« 4o2©3* Relative Pointer 
Types)© For relative pointers whose object type is a variable 
bound type* this means that their "instantaneous" object type 
must be the same as the object type of the relative pointer they 
are ' being compared with; if it is not* the operation is 
unde f i ned o 

Comparison of relative pointers is defined as follows? 

1« Let a and a denote relative pointers of equivalent type* 
and let £ denote a variable whose type is equivalent to the 
common parental type of these relative pointers© If the relation 
#EJLEtP>P> c #&£L(q*P> holds (cf. 11*2*15)* then, p and q are 
equa I » 

2« Let £j> 2* and £ denote relative pointers of equivalent 
type* and let 02, denote any of the comparison operators <* < = * 
>Bp >« If the relations p o& q and q QlR r both hold* then the 
relation p aa *" also holdse 

9*2«6.4 tamaatisftQ^al-SitiQfls 

For operands of typefitLiQfl or ££LiQfl and CQa£* comparison is 
defined in the following way* 

AM six relational operators may be applied to operands whose 
values are strings! if the current lengths of the strings 
entering into the operation differ* then the shorter of the two 
is right-extended with blanks to match the current length of the 
larger before the operation is carried out* If one of the 
operands is of type £HaL* it is converted to the £i.LiQS< 1 > value 
consisting of that character* and then the rules for unequal 
length strings are applied if appropriate© 

Strings are compared to each other character -by- character from 
left to right until total equality or inequality is determined* 
as follows* Let n be the length of the resulting strings a and b 
(n £ 1)* and aa be any of the six comparison operators^ then: 

a fi£ b iff a(l) ae b(l) 

&£ a(i ) » b( i ) for al I i (1 £ J < k) 
aQli a(k) aa b(k) (I < k £ n) 

9.2»6.5 R&iaiittQ£-lQ£$LUiafl-S£is. 

The relation a iQ S is true if the scalar value a is a member 
of the set value S« The base type of the set must be the same 
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as# or a subrange of* the type of the scalar* 

The set operations s (identical to)* /» (different from) O 
(Is Included i n ) * and >» (includes) are defined between two set 
values of the same base type* 

SI * S2 is true if all members of SI are contained 
in S2* and all members of S2 are contained in SI* 

SI /* S2 is true when SI * S2 is false* 

SI < s S2 is true if all members of SI are also 
members of S2* 

SI >» S2 is true if all members of S2 are also 
members of SI* 

9*2.6*6 -Raia£iaQ£-lQit2l^iQfl.A££aitS-aDSl-Sfi£fl£llS. 

1* Arrays may be compared for equality or inequality only© 
Two arrays are equal if their instantaneous types are the same 
(cf* 4*3*3*1) and if elements with corresponding subscript 

values are equrj* 

2* Variant records can not be compared. Other record types 

may be compared for equality or inequality only* Two comparable 

records are equal if their instantaneous types are the same (of* 
4*3*4*5) and if corresponding fields are equal* 

9#2«6*7 NaQz£flffiBaLafei£-.I*E££ 

« 

Certain types in the language cannot be compared* These are 
files* stacks* heaps* sequences* unions* variant records* arrays 
of non-comparable component types* and records containing a field 
of a non-comparable type* However* pointers to non-comparable 
types can be compared* 

9*2*6*8 iaiiifi.a£.£ainELaLaUl£-lJiasa-aad^SasLiilt«I^ES5 

See the following page* 
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<?.2«6»3 Table of Comparable Types and Result Types 

The following table shows the relational operators* the types 
of their permissible operands; and the type of the resulto 



J ! Left ! Right 
Operator ! Operation J Operand ! Operand ! Result 

mmm»m»m*m*m 1 m»m*~~bm*m*m»^m»m.m»^m.m>~m.m*m»m»~^m*m.~m*m*m^ 

< 1 - less than ! any scalar! T ! kaal&aQ 

5 I type T 1 ! 
<° « - less than or 1 LS.&L « LSai • kaaia&Q 


i equal to .§.——— — — ••••••f.M***...*.**^**.***.***.^ 

> } - greater than ! sitiQa 1 Si£iQ3 • feaaiaaQ- 
> a • - greater than j s£riaa J StiaL • &SQ.i£ilQ 

{, or equal to 1 fitjac S SiClQS ! JataaisaQ 
» 1 - equal to J ! . ! 


/ — i •** not equal to v~~^~^~~^^~^v ra ~ w ^^^*"" ,# ** - *-*»T**-»- - *"*-*""*-"- -,,o, —-» 
! • any (*) J T } kaaiaaa 
J ! pointer ! J 
J • type T ! l 

lQ • set membership} any scalar! §,g£ of T 1 ! feaaiaaa 
! test i type T ! where TM 
! j • i s T o r i 

• l • a sub- ! 
} li range of! 
! ! ! T ! 

! - identity ! &e& a£ T ! sat a£ T ! U22iaaQ. 
/» 1 - different ! where T is! ! 
<» J - is contained ! any sea-! ! 

tin ! 1 ar or 1 ! 
>» ■ ! - contains ! subrange! i 

! ! type ! ! 

, a • - equal to ! any array ! T ! kaalaaa 
/- ! - not equal 1 type T ! • 
S to : ! i 

• i any non- j t ! kaai&aa 

{ ! var 1 ant ! J 
J {record! ! 
! ! t y p e T ! ! 

• I I any ! T ! fcaaiaaa 

• J , pointer i S 
! ! type T ! ! 



*«*. 



+ ~ + — + - * * + 

( #) Except for pointers to procedure* coproo label* or file* 
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9.2»7 EXPONENTIATING OPERATOR 

9.2*7 EXPONENTIATING OPERATOR 

The exponentiating operator * * is defined for an argument 
which is a positive or negative integer expression* raised to a 
power which is limited to that of a positive integer expression© 
It is defined to be left associative* so that a *# b.** c is 
evaluated as (a ## b) ** c* (This follows the syntactic rules 
for expressions* cf* 9*0)* 



9.3 QRQEa_QE_£l£AUAIIQtt 



The rules of composition specify operator precedence according 
to six classes of operators* The type testing operators have the 
highest precedence* followed by the not operator* followed by the 
exponentiating operator* followed by the so-called multiplying 
operators* then the so-called adding operators* and finally* with 
the lowest precedence* the relational operators* 

The precise order in which the operands entering into an 
expression are evaluated is undefined* The order of application 
of operators i z defined by the composition rules (and their 
implied hierarchy of operator precedence) with the exception that 
the order of application is undefined for any sequence of 
commutative operators of the same precedence class* For examples 

1* The expression a * b * c / d is evaluated as 
(a * b * c) / d* and the internal order of evaluation of the 
first term is undefined* 

2» The expression a + b + c ~ d is evaluated as (a + b + c) -d* 
with the internal order of evaluation of ( a '. + b + c) 
unde.f i ned* 
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10.0 SIAIEUEMIS 



Statements denote algorithmic a c t i o n s >> and are said to be 
executable© A statement list denotes an ordered sequence of such 
actions© A statement is separated from its successor statement 
by a semicolon© The successor to the last statement of a 
statement list is determined by the structured statement or 
procedure of which it forms a parte 

££a£&ffl&Q£J»ak£l3 

A statement may be labeled by preceding it by an identifier 
followed by a colon* This allows the statement to be explicitly 
referred to by other statements (e.g.* goto* exit* cycle). Such 
a labeling of a statement constitutes the declaration of the 
identifier as a label* and hence the identifier must differ from 
all other identifiers declared in the same block. 

If an identifier labels a statement of the constituent 
statement list of a procedure declaration (see Section 8.0) or a 
begin statement (see Section 10*2.1)* then its scope is that 
procedure declaration or begin statement* If it labels a 
statement of one of. the constituent statement lists of other 
structured statements (see Sec t i on 10. 2 ) p then its scope is that 
statement list* Thus* it is impossible to refer to a label 
contained within a procedure declaration or structured statement 
from outside that declaration or statement* or from other 
statement lists of the same structured statement. 

A label may optionally follow a structured statement other 
than the repeat statement* ir\ which case it must be identical to 
one of the labels labeling that statement. This is for checking 
purposes only* and does not affect the meaning of the program© 

<statement list) ::* <st atemen t){* <s tatement)} 

<statement> • • a <unlabeled s ta tement> 5 < I abe I > s . <s tatement) 

<unlabeled statement> st« <assignment statement> 

}<structured statements <l abe I >3 

Kcontrol statement) 
. Kstorage management statement) 
! < i npu t-out put statement) 

<label> n« <identifier> 
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E&aamla* 

checker ange : if val < i;£ien tagfld i^ 

fiLil val > bound £tl£Q tagfld 2= bound 
&l££ tagfld 1 » val 
i££a£ checker ange 

LI J x : « x -8- y 

L2*L3:L^* y ■:* 2 "note multiple labels permitted" 

Since the successor of the last statement of a statement list 
Is uniquely determined by the structured statement or procedure 
of which it is a part; semicolons are not required as statement 
list delimiters© However* since the £Ql£t£ statement (cf* 
10o3e9) -is allowed* semicolons m$y be so used for purposes of 
consistency or presentation^ 

check^range J if val < therj tagfld i= $ 

&LlL val > bound ttifiQ tagfld :» bound; 
£!§.§. tagfld *=* val ; 
i££Q£t check_range ; 

L 1 s x 1 * x + y ; 

10a ASSIfiHa£liI-SIAI£M£MIS 

* 

The assignment statement is used to replace the current value 
of a variable by a new value derived from an expression* or to 
define the value to be returned by a function designator, 

<asslgnment statement> *:« <variable> * a <expression> 

«<function identifier> : 3 <expression> I 

Ksuccessor ass i gnment> fl cf • 10«l«2 ,f • 

t <pr edecessor assignment> 5 

! <concatenat ing assignment> "cf« 10«1«3" { 
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10.0 STATEMENTS 

10.1.1 ASSIGNMENTS TO VARIABLES AND FUNCTIONS 

10.1*1 ASSIGNMENTS TO VARIABLES AND FUNCTIONS 

The part to the left of the assignment operator ( : a ) is 

evaluated to obtain a reference to some variable* The expression 

on the right is evaluated to obtain a value. The value of the 

referenced variable is replaced by the value of the expression© 

The variable on the (eft may be of any data type except fori 

(a) the so-called QOQ^v&iug, types :. heaps; arrays or stacks of 
non-valued types; and records containing a field of non-value 
typeo 

(b) any variable or parameter specified as read-only* 

(c) any bound variant record* 

(d) the tag field of any bound variant record* 

The variable on the left (or the return type of the function) 
and the expression on the right must be of identical 
instantaneous tvpes (of* 6*1*2)* except as noted below: 

It The type of the variable may be a subrange of the type of 
the expression* If the value of. the expression is not a 
value of the subrange; the program is in error* 

2t If the variable is a unj.2Q variable* then the type of the 5 
expression may oe one (and only one) of the types from which 5 
the union type was united* In this case© the type of the 
expression as well as its value is assigned* 

3t If the left part is a character variaole* the express i on. may 
be a string whose current length is one or greater* The 
string value is right truncated to a single character string 
which is converted to type sh^r and then assigned* 

4. If the left part is a fixed string variable* the expression 
may be a character or a string* and the operation is as 
f o I I ows t 

a) If the. expression is a character* it is converted to a 
fixed string of length one* 

b) if the current length of the string differs from that of 
the assignee* the string will be either right truncated 
or right extended with blanks to obtain a string of 
matching length* 
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c) the assignment is then carried out, 5 

5© If the left part is a varying string variable* the { 
expression may be a character or a string* and the operation J 
is as follows! I 

a) if the expression is a character* it is converted to a J 
fixed string of. length one* • 

b) if the current length of the string expression exceeds ! 
the maxlength of the assignee* the string will be right ! 
truncated to the matching current length* J 

c) the assignment is carried out; the current length of the J 
variable is set to the (possibly revised) current length S 
of the expr ess i on© } 

60 If -the left part is a variant record the right part may be a • 
bound variant record of otherwise equivalent type© i 

7© If the left part is a pointer to a bound variant record* the ! 
expression may be a pointer to an otherwise equivalent 5 
•unbound 5 var i ant - record© I 

8© If the left part is an adaptable pointer* the right part may I 

be either a direct pointer to any of the instantaneous types J 

to which the left part pointer can adapt* or an adaptable I 

pointer which has been adapted to one of those types© Both 5 

the type of the expression and its value are assigned* thus 5 

setting the current type of the assignee© J 

9© If the left part is a stack* the right part must be, a stack 5 

.whose instantaneous component type must be the same as the J 

left partes component type© S 

10© If the left part is a sequence* the expression may be any { 
sequence© { 

11© Stacks may be assigned only to stacks of the same component 
type* and sequences may be assigned only to sequences* After 
the assignment* source and destination contain the same data 
values (those stored in the source ) and are in identical 
states with respect to any future operations* If the 
allocated size of the destination is not large enough to hold 
the source data* then the program is in error© Data values 
stored in the destination prior to the assignment become 
undefined by virtue of having been either overwritten or 
stored past the space required for the assignment© 

12© HaLQidfll Note that generally a pointer value has a finite 
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lifetime (see Section 6.2*2) different from that of the 
pointer variable. Procedures* labels* and automatic 
variables cease to exist on exit from tne clock in whicn they 
were declared. Allocated variables cease to exist when they 
are freed or their containing storage variable ceases to 
exist. Attempts to reference non-existent variables by a 
designator beyond their lifetime is a programming error and 
could lead to disastrous results. 



10.1.2 SUCCESSOR AND PREDECESSOR ASSIGNMENT STATEMENTS 



These assignment statements furnish the Qth successor or Qth 
predecessor of a scalar. 

<successor assignment> :;- <scalar var I ab I e> : * <Qth> 
<predecessor assignment> n? <scalar variable :- <Qth> 
where 

<Qth> *:** < integer expression) 

These statements replace the current value of the scalar variable 
by its Qth successor or predecessor; if that successor or 
predecessor exists. They are equivalent to applying the #su£& t<r 
#B.L&& function q times to the variable. 

If the value of Qth is zero then the current value is 
unchanged© If the value of Qth is negative then tne program is 
i n error . 

If the Qth successor or predecessor does not. exist* then the 
program is in error. 



10.1.3 CONCATENATING ASSIGNMENT 



The concatenating assignment statement is used for purposes of 
conveniently right-extending varying strings. 



<concatenat i ng assignment> : s * 

<varylng string variable> s+ <string expression) 



If the expression is a character* it is converted to a fixed 
string of length one. 



If J£ denotes a varying string variable and £ denotes a string 
expression* then the concatenating assignment 
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V *«• E i 5 



yields the same effect as the variable assignment 
V i« V ♦ (E) I 

10.2 SIRU£IUREB-SIAI£d£fclIS- 



Structured statements are constructs composed from statement 
lists© They provide for storage allocation and scope control* 
selective execution* or repetitive execution of their constituent 
s tatemen t lists© 

<structured statement> i : =* <begin statement> 

}<if s tatement> ! <l oop statement> 
J <wh i I e statement>J<repeatstatement> 
!<for st at ement> J <case statement> 
}<value conformity case statement) 
j<polnter conformity case statement) 



10*2*1 BEGIN STATEMENTS 



Begin statements are blocks* and constitute the scope of their 

constituent declarations© On entry. to the begin statement all 

declarations are evaluated.? and storage allocated for automatic 

variables© The statement list is then executed. On exit* either 

through completing execution of the last statement of the 

statement list or through an explicit transfer of control* all 

identifiers declared within the begin statement become 

I naccess i o I e* and the values of automatic variables become 
undefined© 

The successor of the last statement of the statement list of a 
begin statement is the successor of the begin statement© 

<begin statement) n» 

kaaiQ declaration I i s tXstatement list) gQd 
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£&&iii£ia* 

outer: kaaia £&£ a> D; c : in£aaa£j> t>2* b3 : feaaiaaa i 

a := r + s ; M r and s declared outside block 1 ' 

b :« r MO ; 
LI J • b2 i» tnya J 
i nner : 

kaaia vi* v2 * ' iQlaaat » &2 2 kaaiaaa > 

v 1 : * a ♦ r { 
v2 :» 25 ; 

i£ vl < v2 |Lh£Q b3 i* £ Lilg . if^nd ; 
L3? b2 := faJLag ; ,J b2 of inner block 1 * 

and I nner j 

i£ v2 > a ttiaa 

a *= 1 j "improper statements since v2 
no longer exists" 

i£aad. i 

i£ -Qat b2 £tl£Q 

b J =» c 
JL£&q! i lf b2 is jttua from statement Llo 

the b2 set by statement L3 holds only 
in the block label led innere" 
fiDd outer J 

10*2*2 IF STATEMENTS 

The if statement provides for the execution, of one of a set of 
statement lists depending on the values of Boolean expressions* 
The Boolean expressions following the i£ or Qt.Lt symbols are 
evaluated in order from left to right until one is found whose 
value is $,£ua« The subsequent I 1st is then executed* 

If all Boolean expressions are £aisa> then either no 
statements or the statement list following the alas symbol is 
executed* 

The successor to the last statement of a constituent statement 
list of an if statement is the successor of the if statement* 

<l f statement> t : » 

Alternative parts> i££Qdi 
! <a I ternat i ve parts> ai&a <statement list> i£aad 

Alternative parts> n» if <expression> £bafl <statement I i s t> 
tatit <expression> itiaa <statement list>} 
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10.0 STATEMENTS 
10.2.2 IF STATEMENTS 

£&aa&i£S r 

I£ x < y £b£Q x := y i£eQ£ 

if x <a 5 tilfiQ 2:~y+ljy*»y+5 

ani£ x > 30 than 2 ^ y * y; y * a 2 

&Ll£ x = 15 £ti£Q 2 s= y * 2 
£l££ z ** 2 * 2J y : « 2 * 2 * 15 
i£ead 



10*2*3 LOOP STATEMENTS 



The loop statement causes unbounded repetition of its 
component statement list* Thus* exit from a loop statement must 
be through an explicit change of control* 

The -successor to the last statement of the constituent 
statement list of a loop statement is the first statement of the 
I 1st* 

<loop statement> ::» Xfi2£ <statement I i s t > l2fi££Qd 
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i^ES nextid : stniaa (20) a£ Q.\X3^L i 

^ar. scrambloc i aLLax Cl«o2563 o£ A fie(d J 

£y££ fie id = Lfiaatll 

a> b* c : iQiaaan* 

d : Afield* 

«d : St£iaa (20) a £ at3 2 £ 
£S.£LfiQ£l > 
l&L k : iQteoer, found : b,a&i£aa » 
k := 126 ; 
m i» k / 2 > 
finder: laaa "binary search used" 

i£ scr amb I oc[k ] A . i d =» nextid £tlSQ 
found ** i£ue. J 
£Si£ finder 
i£&Q3 ; 

if scr amb !oc[k ] A » i d < nextid £a§,Q 
k J * k — m 

fiiSS 

k J » k + m 

i£g.Qd j 

m : a si / 2 ; 

i£ m ■ t&sQ 

found :=» £ai£S J 

SSit finder 
l£g.Qd 

if found ttl§Q 

CO© 

"the variable found tells whether a string equal to 
nextid is located In the table* the entries of which 
are pointed to by the values in scrambioc* if the 
matching entry is found* then k is the index of the 
entry* 11 

10*2.4 WHILE STATEMENTS 



A while statement controls repetitive execution of Its 
constituent statement list* 

<while statement> * : » 

HhJLJLS. <expression> d2 <statement list> atlii£Qd 

The expression controlling repetition must be of type 
Boolean© The statement list is repeatedly executed until the 
expression becomes £&!&£• If its value is faJL&£ at the 
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beginning* the statement list is not executed at all. The while 
statement 

tjhils e da s ahii&QJl 

i s equ i va I ent to 

i£ e £b£Q si utiiis e da s Hbiisad, Li&&£ 

The successor of the last statement of the constituent 
statement list of a while statement is the while statement 
itself. 

Sibils aCi] /=> x da i »» i + 1 wkiiaad 

abii.fi- i > o da 

i£ odd (i) td§Q 2 := 2 * x ifgadJ 
i := i / 2J 

X » * X * X 

ubiisaa" 

10.2o5 REPEAT STATEMENTS 



A repeat statement controls repetitive execution of its 
constituent statement list. 

<repeat statement> :J= f.£&e.ai <statement list> y.Q£ii <expression> 

The expression controlling repetition must be 6f type 
Boolean. The statement list between the symbols L2£Sit ar >d y.rj£,il 
is repeatedly (and at least once) executed until the expression 
becomes true. The repeat statement 

L££&a£ s ua£il e 

is equivalent to 

bsaio 
s ; 
1£ e ihSiQ. 

"do nothing" 

£fi££a.t S uoiii e 
i£?.Q2 

sod 
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The successor of the last statement of the constituent statement 
list of a repeat statement is the expression folio wing y.nt,LL<> 

££££a£ k :* i mfid j; 

i ** j; 

j * Q k 
UQtii J * 

10o2e6 FOR STATEMENTS 

The for statement indicates that its constituent statement 
list is to be repeatedly executed while a progression of values 
is assigned to a variable* which is called the control variable 
of the for statementt 

<for statement> ::~ £ fi £ <control variable> :* <for list> da 

<statement l.ist> £oreQd 
<for I lst> : t* 

< i n I t i a 1 value) to <fanaf value)[bv <increment>3 
!<initia! value) $own£& <f i n a I valueMij^ <decr emen t)3 : 

<control variable) it» <variable> 

Xinitial value) s : - <expr ess i on) 
<final value) J J» <expression> 

<increment> it* <expression> 
<decrement> : : =» <expression> 

The control variable* initial value* final value* and 
increment or decrement must all be of the same scalar type or 
subranges of the same type* The control variable may not be an J 
unaligned component of a packed or crammed structure* and when 5 
the &x option is used* must be type integer or subrange thereof. 

The sequence of values assigned to the control variable for 
which the statement list is executed is determined solely by the 
Initial value* final value* and increment or decrement© 
Assignment to the control variable on a given iteration wilt 
cause its value to be changed for the remainder of that 
iteration* but its value will be reset to the next value of, the 
sequence prior to the next iteration* 

The initial value* final value* and increment or decrement are 
evaluated once on entry to the for statement* as is tne name of 
the control variable* Thus* subsequent assignments to components 
of these expressions have no effect on the sequencing of the 
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W W W « W « W « « W W W N W W W W W W W W M W W ft? W « « W « « M W « W N W W M « A* / 



statement* 

If the Initial value is greater than the final value in the £fi 
form* or if the initial value is less than the final value in the 
dfiHQlfi form* then no assignment is made to the control variable 
and .the statement list is not executed© 

If no assignment is made to the control variable by the 
statement list* and the exit from the statement is a normal one* 
then the value of the control variable is the final value© 

A for statement of the form 

£2L w ** i £a n £a S £o££q£ 

I s equ i va I ent to 

kfiaiQ JtSL control : A TYPE (w)* temp* limit : TYPE (w) J 

control s » * w * temp s * j ; limit s » n > 

It temp <* limit liifiQ 

ftbil£ temp < limit da control A := tempi Si 

temp J =* #£uca(temp) aUiI§Q^ J 
contro I A : ~ temp ; 
S j 

££l£ 

where control* temp* and limit are identifiers not appearing in 
the statement list S* and TYPE is a function returning the type 
of its argument (not available in SWl)« 

A for statement, of the form 

£ft£" w ** 1 daaalia.n sia s fatsnd 

Is equivalent to 

kaaiQ OL control 1 A TYPE(w)* temp* limit : TYPE(w) j 
control :* *w J temp :« i ; limit * s n } 
i£ temp ■ >« limit £i!S.Q 

H&JLJL& temp > limit £a control* ** temp j S J 
temp » #E£.£dJ temp } * 
control" * = temp * 
HbilSQd * 

LUaa 
and 
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A for the statement of the form 

£S£ w i» i ia n fejt inc dfl S £&££!!& 
is equivalent to 

k£3iQ )L£L control : A TYPE(w)* limits step* temp : iQiL&aaL I 
control :» A w ; temp * =» j ; limit : * n ; step : * inc ; 
iittilS temp <* limit da 

control^ 2 * temp J S J temp 2 =» temp + step 

tttlil£Qd 

and a for statement of the form 

£fiL w »« i dtttfQia n &X deer da S £aL£Qd 
I s equ \ Va I ent to 

ksaio 

JtaJL control s A TYPE(w)* limit* step* temp J iQka§L J 

control ** A w j temp * « f j limit :* n ; step •:? 'deer ; 

iihiifi temp > s limit da 

control^ la temp J S } temp *« temp-- step 

tthilfiild 
and 

The successor to the last statement of the constituent 
statement list of a for statement is the calculation of the next 
value of the temporary control variable* 

£an i s« 2 £a loo da 

i£ aC i ] > max i.h§.Q 
max J » a[ j ] 

i£aad 

£fiL£Qd 

If $ <« # J$C H 

£an J *■ i £a n t* i da 
£fi£ J *■ n daaata i da 

x :« J 

£ac k t« l jta n da 

x : * x * a C i * k 3 * b C k * j ] 

ffltfiQfl i 
cti* j] 1* x 

£ansad 
tanand 
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10 $ $ $ $ It 

£flL c :« red j:g blue d$> q(c) £2t£Qd J "note: by; option 
is not allowed when the control variable Is not 
of type integer or type subrange of integer." 



10. 2*7 CASE STATEMENTS 



A case statement selects one of its component statement lists 
for execution depending on the value of an expression© 

<case statement> Ms ca§.£ <selector> o£ <cases> 

C&IS.S <statement I I s t > 3 £as,£nd 

<selector> :s« <e>cpr ess i on> 

<cases>.::~ <a case>{;<a case)} 

<a case) ss~ a< S election spec>{; <s elect i on spec)} 3 

<st at emen t list) 



<selection spec) : 2 a <simple constant expression) 

£©o<simple constant expression)] 

The case statement selects for execution that statement list 
(if any) which has a selection specification which includes the 
value of the selector* If no selection specification includes 
the value of the selector* the statement I 1st following £!§.§, is 
selected when the else option is employed; otherwise* the program 
is in errorc If the value of the selector is not included in any 
selection spec and the el&g is omitted^ the program is in- error*. 

The selector and all s e I ect i on spec i f i c at i ons must be 'of the 
same scalar type or subranges of the same type© No two selection 
specifications may include the same values (i«e»; selection must 

be unique)* 

Selection specs are * restricted to simple expressions (cf© 
9*0) to preclude the use of unpar enthes i zed relations as 
sel ect i on specs « 

The successor of the last statement of a selected statement 
list is the successor of the case statement* 

Q.&S.& operator &£ 

splus* x i * x ♦ y } 

»m i nus*» x : * x - y J 

*times» x. s * x * y £aS£Qd 
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£a&£ i a£ 

*l s x :a s i n ( x ) ; 

s 2* x : » cos (x ) J 

a 3» x !« exp ( x ) j 

a 4* x : « I n { x > 

£i&§ x := -x 

£as£Qd 



II # # # # # fc It 

£XES (extype « (basic* inconst* realconst* stringconst* 
identifier)* 

symbol « £fi££L£l 

££§,§. 'ex : lextype af 
-basic 3 name 2 symbol id* 

class: operation* 
«lnconst= value 2 in£sa§£* 

optimiz : &&Sl£aQ* 
-realconst* value ; ££&i* 
«str i ngconst- length J le«255* 

stringouf : *sf£iQ&(#)* 
* identifier * identno * integer* 

dec! * A $ym bole n try 
£3&£Qd 
£&££!!£* 

Ji^L cu.rsym s symbol* sign J k£fii£aQ :« £aiSS. : * 

LI : insymbol ; 

L2 * £&&§. cursynulex &£ 

«basic=* if cursym* symbo I i d=* minus £t3£Q sign 2 = 
aa£ sign i aof& LI 
fl£i£ cursym.symbol id = plus ££i£Q 2£f£ LI 
fiiSS error ( f missing operand 1 ) 

iiaad J 

*inconst a cursym«rOptimiz : * (cursynfuvalue<halfword) 
££ pwr2 (cursym.value) ; if sign ftl£Q sign :* £&i££ i 
cursynwvalue J s ~cursym 6 va I ue ifsnd # 

*realconst« if sign £tlg.Q sign :« £ai££ J 
cursyoi.value :* -cursym.value if£Qd 5 

*s tr i ngcons* -t» error ('string constant where 
arithmetic type expected 1 ) ; 

^identifiers cursym©decl i« symbolsearch 
(cursynuidentno) i if cursym©deci A otyp /» 
constdecl fii&Q variable ( cur srru dec I ) &i£& 
cursym : » curs ynu dec I * e va I ue A J &fi£o L2 
i£&Q£i 

£a££Q£i 
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10*2*8 VALUE CONFORMITY CASE STATEMENT 



A value conformity case statement selects for execution one of 
Its component statement lists depending on the type of the value 
last assigned to a union variable* and permits references to that 
value by assigning it to a variable© The union variable may be 
of packed union type* 

<value conformity case state ment> it* 

£HS§ : * : <union variable> &£ <value conformity cases) 
C£ik£ <statement list) 3'c&££Qd 

< union variable) *:^ <variable> 

<value conformity cases) ns 

<a value conformity case) {; <a value conformity case) } 

<a value conformity case) J J a 

~<value type specifier)* 3 <statement list) 

<value type specifier) ::» <variable> 

Each value type specifier must be a variable of one (and only 
one) of the types of the union variable^ and must be of a type 
different from all other value type specifiers in the statement 
(l*e*> type selection must be unique)* If one of the 
specifiers is of the type of value last assigned to 
variable* it will be assigned that value and the 
statement list will be executed© Within the statement 
value type spec i f i er ( t ©e ** the variable itself) may 
access the value which was that of the union variable© 



value type 
the union 
assoc i ated 
I i st * the 
be used to 



If none of the value type specifiers matches the type of the 
value of the union variable* the statement list following £!&e Is 
executed* If none of the value type specifiers matches the type 
of the value of the union variable* and if the al^e part is 
omitted* the program is in error* 



The successor of the selected statement 
of the value conformity case statement* 



list is the successor 
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fexamaJLai 

on b2 : baaisaQ* i2 v iniaaai:* r3> r4 : caal* 
mix ■ uqIqq <ia£aaat> La&l> feaalaaa) J 



mix la (r3 * 24*213) / r5 I "mix assumes a real value" 



£3£S :=: mix fl£ "value conformity case" 
*b2 s stb := sta j ks* k + 1 ; 
*t2* i2 ** 12 * 2 ; b2 i a ££ug ; 
«r^ r3 := 2 # r4 ; b2 s« i£Ua i 

" r 4 is assigned value of mix and 
this case is chosen" 

as&aad J* 

10*2*9 POINTER CONFORMITY CASE STATEMENTS 

A pointer conformity case statement selects for execution one t 

of its component statement lists depending on the type of the I 

value last assigned to a union variable* and permits references J 

to that value by assigning a po I nter-to-the-v a I ue to a pointer } 

variable* The union variable may not be of packed union type© 5 

<pointer conformity case statement> ::» aasa : * 5 <union variable> 
fi£ <pointer conformity cases>Cal§.a <statement I i s t> 3 • aa&and 

<union variable> J J 8 <variable> 

< pointer conformity cases) t:« 

<a pointer conformity case){;<a pointer conformity case)} 

<a pointer conformity case) JJ s 

a<POlnter type specifier) 38 <statement list) 

<pointer type specifier) n« <pointer var i able) I 

<pointer variable) s : » <var iaDle) 

Each pointer type specifier must be a pointer variable to one J 
(and only one) of the types of the union variable* and must be of ! 
a type different from all other type specifiers in the statement 
( i « e « # type selection must be uniquejo If one of the pointer 
type specifiers is a pointer to the type of value last assigned 
to the union variable* it Hill be assigned a pointer to that 
value and the associated statement list will be executed* Within 
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the statement list;* the pointer followed by an up arrow may be 
used to cefar to the value. 

If none of the pointer type specifiers matches the type of the 
value of the union variable* the statement list following gl§.e is 
executedo If none of the pointer type specifiers matches the 
type of the current value of the union variable* and if the £l££ 
part is omitted* the program Is in error c 

The successor of the selected statement list is the successor 
of the pointer conformity case statement* 

E£2£ fonnat C £.e f u : union (JLa££Qe£* h2fliSaQ) * S J s££iQ3(*)) J 

iLa£ pint : A iQteser;> pbool : A bool£&Q ; 

£SES : * : u &£ "pointer conformity case statement 11 

sp.int* #£t£iQC[Lg.£ (pint% Si? 12) i 

»pbool= if pbool A itl£Q 

~~S<1>6) ** ^true_« 

S(l*6) :« 'false.' 

£S£(|Qc| 



10.3 _£QilIfiQJ..SIAIEil£NIS 



Control statements cause the creation or destruction of 

execution environments* the transfer of control to a different 

execution environment or to a different statement in the same 
environment* or bothe 

<control sta.tement> JJ 3 <procedure call statement> 

5 <cr eate s tatement>S<des troy state me nt> 
Kresume stat ement> J <cyc I e statement> 
!<exit s tatement> J <retur n statement> 
}<goto s tatemen t>} <empty statement> 



10*3. 1 PROCEDURE CALL STATEMENT 



A procedure call statement causes the creation of an 
environment for the execution of the specified procedure and 
transfers control to that procedure, (Cf«> chap* 8* Procs* 
Coprocs and Labels*) A procedure call statement may never be 
used to activate a function, 
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<procedure call statement) s:« 

<procedure reference) <actual parameter I i s t > 

<procedure reference) js* <procedure Identifier) 

Kpointer to procedure) A 

<actual parameter list) : : a 

( <ac tua I parameter)-C;<actual parameter)}) 
J <emp ty) 

<actual parameter) : s =* <express I on) { <pr ocedure identifier) 

:<label> 

The actual parameter list must be compatible with the formal 
parameter list of the procedure© An actual parameter corresponds 
to the formal parameter which occupies the same ordinal position 
In the formal parameter list© 



A call by value parameter causes the establishment of a 

variable local to the called procedure; and the assignment of the 

value of the actual parameter to it© The type of the Socal 
variable Is fixed as follows: 

1© If the formal parameter is of fixed or variable bound type? 
then its instantaneous type is known at the time of call and 
becomes the type of the local variable* The actual parameter 
may be any expression which could be assigned to a variable 
of that type (cf© Assignment Statements)© 

2© If the formal parameter is of adaptable type; it must be an 
adaptable string; array; record; stack or sequence© The 
Instantaneous type of the actual parameter' must be one of 
those. to which ''the adaptable type can adapt (cf© Adaptable 
Types); and the local variable takes on that type* The 
actual assignment of value then follows normal assignment 
rules© 



3© If the formal parameter is an adaptable pointer; tnen the 
actual parameter may be any pointer expression which could be 
assigned to that adaptable pointer© Both the value and the 
instantaneous type of the actual parameter are assigned; thus 
fixing the type oft he local variable© 

4* If the formal parameter is a bound or f unbound f variant 

record; then the actual may be an unbound or bound 

(respectively) variant record of the same instantaneous 
type© 
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10©3,1©2 £aii-tl3t-R£££££Q£fi 



A call-by-ref parameter causes the formal parameter to 
designate the actual parameter throughout execution of the 
procedure* Assignments to the formal parameter thus cause 
changes to the corresponding actual parameter An actual 
parameter corresponding to a call-by.-ref formal parameter must be 
aligned (cf* Section 4 9) to ensure that it can be addressed© 



The type designated by the formal parameter is fixed as 
f I I ows * -" . 



1 © If the formal parameter is of fixed or variable bound type* 
then Tts instantaneous type is Known at the time of call© 
The actual parameter must be a variable or substring 
reference of the same instantaneous type* and that type is 
designated* 



2© If the formal parameter is of adaptable type* the actual 
parameter must be a variable or substring reference whose 
instantaneous type is one of those to which the adaptable 
type can adapt (cf© Adaptable Types)* and that type is 
designated© 



3© If the formal parameter is a variant record then the actual 
parameter may qq.L he a bound variant record* 



4© If the formal parameter is a call-by-ref procedure* then the 

actual parameter must be a procedure reference to a procedure 

with the same ordered list of parameter types and return 
type© 



5© If the formal parameter is a call-by-ref label* then the 
actual parameter must be a label reference© 



10©3.2 CREATE STATEMENT 



The create 

the specified procedure* and 

(including the actual parameter 

variables) for the execution of 

The identity of the created 
specified pointer to coproc* 

statement* a resume statement 



statement causes the creation of 

establ isnes a 



a coprocess from 

new en v i r onmen t 

list* but not including automatic 

that procedure as a coprocess© 

coprocess is assigned to the 

On completion of the create 



using tne pointer to coproc would 
cause execution to be resumed at the constituent declaration list 
(if any) of the body of the .procedure© At that time* automatic 
variables are allocated* 
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The procedure specified in the create statement is designated 
the primary procedure of the coprocess© An exit by means of a 
normal exit* return; or goto statement while the coprocess is 
still active is an error (cf© 8©2 for an integrated, example and 
related semantics^ 

It is possible to have several instances at the same time of a 
single procedure in use as a coproc* each instance having been 
created with a different pointer to coproc* and potentially with 
differing actual parameters© (See the second example 
following©) 

<create statement) ss = 

SCasia (<POinter to coproc>* <procedure call statement)) 

<pointer to coproc> JJ* <variable> 

E£2£ fixer(L§.£ a, b> c J siLiQfl (20) a£ c'Q&r,p 
answer i 1 © © 10)1 

• 9 • 

££2££Q£i 

&a£ fixkij> fixk2* fixk3* fixk4> fixk4 : *££££££ > 
! f pointer to coproc" 

© © © 
££&a£a( f i xkl* f i xer ( vai vb<> str#rr* responses!)) ; 
££££&£( fixk 2* fixer(va> vb> var#mm* strtfssV response^)) ; 

© © © 
££§.at£( f i xk5* f i xer (rk>s t>k24* str#abj> response#5)) j 

10. 3.3 DESTROY STATEMENT 

The destroy statement causes the destruction of the coprocess 
specified by the pointer to coproc and sets the pointer to oil© 
Storage allocated to the coprocess is returned* and subsequent 
attempts to resume the coprocess or access variables local to it 
are in error© A destroy statement designating the coprocess in 
which it occurs is an error (cf© 8©2 for an integrated example 
and related semantics)© 

<destroy statement> *:* 

d2St£2J£ Kpointer to coproc) O<pofnter to coproc)}) 
<pointer to coproc> no <vartable> 

Enamels. 5 
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M /J (W /U" A^ /V A/ AJ ,V */ A9 A/ /V /^ /tf */ A< W M A* /V />? /^ AJ M W W /tf ^ W 

dfiSlLLfl* (flxk2) 

10*3*4 RESUME STATEMENT 

The resume statement causes execution of the current coprocess 
to be suspended/* arid execution to continue at the successor of 
the last executed resume statement of the specified coprocess© 
If the specified coprocess had just been created; execution 
resumes at its constituent declaration list (cf 8 • 2 for an ! 
integrated example and semantics)© ! 

A' resume statement designating a destroyed coprocess or the 
coprocess in which it occurs is in error 

<resume statement> * s ~ EfisuiDfi (<coproc reference)) 
<coproc .reference) tu <po inter to coproc> A 

Lfi&umfi (fixk2 A ) 

10*3*5 CYCLE STATEMENT 

The eye I e. statement allows the conditional by-passing of the 
remainder of the statement of the constituent statement list of 
the designated repetitive statement* thus cycling it to its next 
i ter at i on (if any ) * 

<cycle statement) ::* £££i£ C<l abe I >] C&&&Q <expr ess i on>3 

The label must label a repetitive statement (for* repeat* 
while* or loop statement)* which statically encompasses the cycle 
statement* i*e** the cycle statement must be within the scope of 
the label* If no label is specified* then the cycle statement 
must be a statement of the constituent statement list of a 
repetitive statement* and it is that repetitive statement that is 
cycled* 

The expression following ahfiQ must be a boolean expression* 
If the value of the expression is true* or the when clause does 
not occur* then execution continues at the successor of the last 
statement of the constituent statement list of the designated 
structured statement or procedureo Otherwise* execution 
continues at the successor of the cycle statement* 

Thus* the cycle statement has the effect of (potentially) 
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re-executing the statement list of a repetitive statement such as 
for/ repeat/ loop* or while* 

E&amEies: 

* £2X I : u 1 £& n d o 

£Xfii£ ttb£Q x < at i ] ; 

x :» aCi.l "balance of loop skipped when x < aCM 11 

£fl££Qd 



10.3.6 EXIT STATEMENT 



The exit statement causes execution to continue at the 
successor of a designated structured statement or procedure when 
a condition is true or non-existent. 

<exit statement> *:» £&i£ COabel or proc identifier^ 

Cilbfia <expressi on>3: 

<label or proc identifier> Ms <| abe I > J <pr ocedure identifier> 

If no label or procedure is specified* then execution continues 
at the successor of the immediately containing structured 
statement or procedure. 

If a procedure is designated as the object of the e&it* then 
that procedure must statically encompass the &&L& statement 
within the same compilation unit (see section 8*1.3 for exits 
from functions). If a label is designated as the object of the 
£&i£> then that label must be for a structured statement which 
statically encompasses the e£j,£ statement within the same 
comp I I at i on lin i t • 

Note that the exit statement with either a label or procedure 
designated permits multiple levels of exit with a single 
command. This exit can permit recursive nests to be terminated 
with the single command by selection of the appropriate label or 
procedure identifier. 

£.£££&£ fiXit UllfiQ Key « aE iJ ; i :« i + 1 uQtil i >-n 

t * o 

L2» x :* y «• 27 ; "example of £&i£ <label>" 
13 J £fi£ k »» 1 ta 10000 da 

j »* k ; 

if u mad 2) = o itisa 
btk] j- false 
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P r i m e ( i * answer) } "test If prime" 

Jtm *m *£m Cut 

££ f i bonacc i ( answer > t^Q 
&&li. L3 "goes to LV P 

i£&ad > 

answer : » answer - 5 J 

i£ answer <= iliaQ 

fiXit L3 "exitrif^ laafi* j.£* £c>r'* 

i£aasl 
l&a&sad 

i££Q<2 

L4s "exit causes control to transfer here" 
bound * 3 j J oo« 

10*3*7 RETURN STATEMENT 

The return statement causes the current procedure to return 
when the expression is true or non-existent ; i«eo; the successor 
of a return statement is the successor of the last statement of 
the constituent statement list of the procedure or function • n 
which it is embedded* 

<return statement> ::= £e£ii£Q CMb§Q <express i on>3 

£££U£Q Utl£Q next. term < epsiion 

10*3*8 GOTO STATEMENT 

<goto statement> J : * a&£fl t£)ti£3 . <l abe I reference> 

<label reference> x:» <label> S <pointer to label> A 

The goto statement names as its successor the labeled 
statement designated by the label or by the value of the pointer 
to I abe I » 

If the label reference is to a label outside the current 
block* then the form ga£a Jg&i£ must be used* and the label must 
have been declared in a label declaration in the declaration list 
of its block; otherwise* the form wi thout .§,&i£ is used* 

If the pointer to label designates a statement in a procedure 
that has already been exited* or a statement in a coprocess other 
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than the one in which the goto statement' occurs* then the goto 
statement is in error. 

£Lfi£ finder (£.££ a>b : L§S.l > ? 

"example of aflta with and without Silit option 11 
JUtLSl LI* L2* L3 ; 

XilC " kl* k2 : Lsal* kint* jint J iQ£fi££L J 
E£S£ circle(LS£ k2 ? LSal> Jtal kl I caal) 1 
Li: k2 :« $Laai( k I nt ) ; 
L35 kl i * p i * k2 ; 

i£ kl < $raai(jint) ibfiD 
" * ,f aafefi £&!£ L2 "go to L2 outside of procedure circle" 

ifsad > 

k2 i» k2 * 0*05 J 
« * « - aaia L3 ; "stays inside procedure circle " 
ELaa^Qd circle; 

LI: kl:*2*a+b;#«« ; a * * a + • ♦ . j 
circle(a*k2)J 

aaia Li i 

L2: i£ c o * ; fl ao£a £&ii from procedure circle 

comes to this po i nt" 

kl :« - •• • ; ce • ilaad 

L3i i£ kl ... i£SQd 

E£a££Qd finder ; 

10*3.9 EMPTY STATEMENT 

An empty statement denotes no action and consists of no 
symbols. 

<empty statement> *:» 

10.4 SIQSA£E-.MAI4Afi£ilEiai-SIAIEtlEliIS 

There are three storage types — stack* sequence* and heap -- 
defined in the language* each with its own unique management and 
access characteristics. A variable of any of these types is a 
structure into which other varjaoles may be placedp referenced* 
and deleted under program control according to the discipline 
implied by the type of the storage variable. Storage management 
statements are the means' for effecting this control© 
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ilO«<> STORAGE MANAGEMENT STATEMENTS 

1^ ft* *^ Af #V '^ A> A/ <V A/ W Arf #J /M /* A* .*# /tf M *rf AT A* W *V ♦* A* A* AJ A# *^ A^ 

<storage management statement) s s » <push statement) 

!<pop statement) 
5 < n e x t statement) 
Kreset statement) 
I < a I locate statement) 
!<free statement) 

Prior to the first allocation into a storage variable; a £e§,e£ ! 
statement is required for that storage variable 5 

10.4.1 ALLOCATION DESIGNATOR 

An allocation designator specifies the type of the variable to 
be managed by the storage management statementso An allocation J 
designator is either:. ! 

a) a pointer variable* in which case a variable of the type J 
designated by the pointer variable is specified; J 

or * } 



b) an adaptable pointer (or bound variant record pointer) { 

followed by a £&£§, ZL&&L (see below) which specifies the { 

adaptable bounds or lengths or sizes {or tag fields)* in which I 

case a variable of the resultant fixed type is designated and the J 

adaptable or bound variant record pointer is set to designate a S 

variable of that type* J 

<allocation designator) na 
<po i nter var i ao I e> 
!<adaptable pointer variable) i £<adaptable field fixer) 

G<adaptable field fixer)}! 
Kpointer to bound variant record variable) : 

£< tag field fixers)! 3 S 

<tag field fixers) t:» <scalar expression) 5 

J <constant f i xer s)C $ <sca I ar expression)] ! 

<constant fixers) ti* <constant scalar expression) ! 

{*<constant scalar expression)} ! 

<adaptable field fixer) ::« <star fixer) 

Kstarry subrange fixer) 
J< I ength f i xer) 
}<span fixer) 

<star fixer) s:a <scalar expression) «« <scalar expression) 
<starry subrange fixer) :?~ <scalar expression) 
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>10«,'*el ALLOCATION DESIGNATOR 

<length fixer> : : = <scalar expression) 
<span fixer> J!« £<span> O <span> >2 
<span> s:= C£££ <posi tive integer expression) o£] 
<type i dent i f i er > 

1 © " Star fixers and starry subrange fixers are used in the 
fixing of adaptable bounds of arrays© 

2© Length fixers are used in the fixing of adaptable bounds of 
strings or stack So 

3« Span fixers are used in the fixing of adaptable bounds of 
heaps or sequences© 

4 • The order* types* and values of adaptable field fixers must 1 
select one of the types to which the associated adaptable ! 
pointer can adapt (cf© Adaptable Types)© ! 

5© The order; types* and values of tag field fixers must select 5 

those variants to which the associated bound variant record S 

pointer can be bound© All but the last of these tag field S 

fixers must be constant expressions^ S 



6© For the bounds list used in -n allocation designator^ 
entries are reqired only for dimensions (or either end of a 
dimension) which are adaptable© No place holders or position 
markers are required to indicate values or relative positions 
within the entire sequence of the fixed or variable bound 
indices involved in the total type definition© 

7© Pointers associated with type fixers are set to designate a 
variable of the type fixed by the type fixer (whenever the 
statement in which they occur is executed)© They will then 
designate a variable of that fixed type until they are either 
reset by a subsequent assignment operation or re-fixed by a 
type fixer in a subsequent storage management operation© 

£yE& tipe » actas C1#©5j * > v2©©v3> 21*#*3'-af LSL&L- i 
l&L point : A tipe 9 bunch : £t£a£ {£.££ 25000 &f ££&j.) } 
"point is an adaptable pointer variable" 
• © © 
aJLLa£a££ point J C5«. 15*2^.3 in bunch ; 

This allocate statement would cause the allocation of an array 
of four dimensions with components of type £e<ji> with dimensions? 

1 to 5* 5 to 15* v2 to v3* and 21 to 24. 
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.'i0o4ol ALLOCATION DESIGNATOR 

and would set the pointer variable* points to designate that 
array© (The values of v2 and v3 will have been established on 
entry to the block containing the above declarations*) 

A subsequent statement of the form: 

aiiasatfi point : Cr*.s* t] iQ bunch ; 

would al locate an array with dimensions 

1 to 5i r to s^ v2 to v3> and 21 to t 

and would reset the pointer variable* points to designate the new 
array* The second and fourth dimensions will be determined by 
the values of rs>sp and t when the statement Is executed* 

10c4c2 RUSH STATEMENT 



The push statement causes the allocation of space for a 
variable on either a user-declared stack or a system-managed 
stacks and sets an allocation designator to designate that 
variable (or to the pointer value nil if there is insufficient 
space for the allocation)* The value of the newly allocated 
variable (or of any component thereof* in the case of structured 
variables) remains undefined until the suosequent assignment of a 
value to the variable or to its components* 

The first EUStl statement for any user-declared stack must be 
preceeded by a £,e&£l statement for the stack* or the program will 
be in error* (Such a ££§.&£ statement is neither required nor 
possible by the user for the f System Stack*)* 

<push statement> J * ** £&§.& <pointer variable> oq <s tack, var i ab I e> 

• RU&& <allocation designator> 

<stack varlable> s:= <variable> 

10 «4.2*l ilsftLzQfifilaLfid-Stafili 



The object type (the type pointed-to) of the pointer variable 
must oe the same as the s t a c k * s component type* Space for a 
variable of that type is allocated atop tne specified stack* and 
the pointer variable is set to designate the newly allocated 
variable (or to the value ail if there is insufficient space)* 
The pointer variable may then t>e used to access the newly 
a I located var I ab I e* 



NCR/COC PRIVILEGED 10*0 



10-29 
SOFTWARE WRITER'S LANGUAGE SPECIFICATION 

75/06/09 
Revision 4 June 09» 1975 

10.0 STATEMENTS 

10o4«2ol User-Declared Stack 

xat stk : starts ciooi a£ intaaao 

stktop : A iQ££fl£jr* "to point to top of stack *stk* ,f 

k * iaiaaSL Ja 1 1 
fiUSb stktop q.q stk ; "allocate space for new value" 
stktop A * 3 k J "assign new value" 

10*4*2*2 S^aJLaarflaaaaad-Stafiii- 

If a stack Is not specified* space for a variable of the type 
determined by the allocation designator is set to designate that 
variable (or to the value nil if there is insufficient space)* A 
variable so allocated can not be explicitly de-allocated by the 
user* Instead* de-allocation occurs au torn at i ca I I y on exit from 
the block (cf* 7*5) containing the allocating aystl statement* at 
which time space for the variable is released and Its value 
becomes undefined* 

£&aB&JLa' 

HL localarray : A aLLa*C*3 fl£ : ia£aaa£ ? 
EUS.ll loca I" array *C203j 

"allocate space for array C20] of integer on. 

system stack* i-th element can be referenced 

as loca I array A £ i ] " 

# 

10*4*3 POP STATEMENT 



The a&E statement causes the de-allocation of the top element 
on a specified stack (space for the variable is released and its 
value becomes undefined)* and a pointer variable is set to 
designate the previous variable on the stack (which becomes the 
new top of stack)* If no elements remain on the stack* the 
pointer variable is set to the value nil* 

<pop statement> * * a g. aE , <pointer variable> &Q <stack variable) 

The object type of the pointer variable (the type pointed-to) 
must be the same as the stack*s component type* and the use of a 
read-only pointer variable is an error* 
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3.0. 4. 3 POP STATEMENT 

ZaL intstack : st;ack [100] jj£ iaisasx* 
Intstacktop 2 A iQ±aa££* 
j* k • inJLaaac J 

• £&&&£ intstack; 6 o, • 

L&L k '** 1 JU 90 da 

£US.h intstacktop &q intstack ; 

intstacktop* :» 2 * k ; "2* 4* 6* • •» * 180" 

£2£§Qd i < 

fat k :» 1 £a 15 da 

&aa intstacktop aQ intstack; 

£a£aad j 

"seventy-five values now in stack" 

j :.=* intstacktop* ; "j has value 150 " 

10*4*4 NEXT STATEMENT 

The next statement sets the allocation designator to designate 
the current element of the sequence* and causes the next element 
to become the current element* After a reset or an allocation of 
a sequence* the current element is the first element of the 
sequence© Note that the ordered set of variables comprising a 
sequence is determined a I gor i thm i ca I I y by the sequence of 
execution of next statementSe 

Prior to the first next statement for any sequence* the } 
program must execute a £ese£ for that sequence to set it to the J 
beginning* or the program will be in error© { 

If the execution of a next statement would cause the new 
current element to lie outside the bounds of the sequence* then 
the allocation designator is set to the value QJ.JL* 

<next statement> *J* 

Q£&£ <a 1 I ocat i on designator> i& <sequence variable> 

<sequence variabie> *:» <variable> 

Examala* 

Q£&£ length^ptr £q buf J 

Q£&£ stgptr * C 1 • « I eng th_p tr * ] 1q buf 
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10*4*5 RESET STATEMENT 

The reset statement causes either positioning in a sequence; 
de-allocation and positioning in a stacks or en-masse 
de-allocation of all variables of a heap© Space for de-allocated 
variables is released and their values become undefined. 

<reset statement) :*- 

££&££ <sequence variable)[ £o <pointer variable)] 
t £££&£ <stack variable) [t£ <pointer variable)] 
i ££&£i <heap variable) 

&aLQiQa : a LfiSfit statement Is required prior to the first 

allocate statement for any user-defined stack* sequence* or heap 

to reset the stack* sequence* or heap to an 'empty 1 status; 

otherwise* the program is in error* 

10*4*5*1 R££et_£aHU£n£& 

The reset sequence statement causes positioning in a 
sequence* The current element of the sequence becomes either the 
first element or the element specified by the pointer variable* 
The use of a pointer variable whose value had not oeen set by a 
next statment for the same sequence* or whose value is Qii* is an 
error * 

£&£££ buf ia length^ptr 
10o4*5*2 a£&££-££a£k 

The reset stack statement causes de-allocation and positioning 
In a stack* If a pointer variable is not specified* all elements 
of the stack are de-a I I ocat ed* If a pointer variable is 
specified* its object type (the type pointed-to) must be the same 
as the stack's component type* and the operation is as follows: 
if the pointer variable does not designate the top of the 
specified stack* then the top element is de-allocated and the 
process continues until the pointer variable designates the top 
element* The use of a pointer variable whose value had not been 
set by a push or pop operation on the specified stack* or whose 
value is aii* is an error* 
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iOo'i.5.3 Reset Heap 

W « « w « « « « « « w « w « w m w w « « « ;,uj w « « « ^ w w « W w ^ « w a; M M <v « « w « w « w « « « w 

The reset heap statement causes all elements currently 
allocated ( c f * 10*4*6) in the specified heap to be freed (cf » 
10*<r*7) en~masse* 



10*4*6 ALLOCATE STATEMENT 

The allocate statement causes the allocation of a variable of 
the specified type in the specified heap and sets the allocation 
designator to designate that variable .or to the value nil if 
there Is insufficient space for the allocation© If a heap 
variable is not specified* the allocation takes place out of the 
universal (system defined) heap* 

Note that the first allocate statement for any heap must be 
preceeded by the execution of a rgsg£ statement for that heap*. or 
the program will be in error (cf* 10*4*5)© 

<allocate staternent> : J « 

Siifi£&t£ <allocation designator> £ Xq <heap variable>] 

<heap varlable> s* a <variable> 

1£L my^stack : A ££ack £♦] fif iQtaaSLi 

aiifi£&££ my^stack i C503I "allocate space in system heap" 
ali&£££e sym_ptr iQ symbol^table 

10*4*7 FREE STATEMENT 



The free statement causes the deletion of a specified variable, 
from a heap* making its storage available for subsequent allocate 
statements* 

A pointer variable specifies the variable to be freed* If the 
pointer variable Has not set as a result of a previous allocate 
statement for the same heap; the effect is undefined* Execution 
of the free statement sets tne pointer variable to the value 
nil* Use of a pointer variable with a value of Qil to attempt 
data access is an error* 



NCR/CDC PRIVILEGED 10*0 



SOFTWARE WRITER'S LANGUAGE SPEC IF IC ATION 

75/06709 
Revision 4 June 09> 1975 

10. STATEMENTS 
10„4.7 FREE STATEMENT 

*tf rj ts t& fj tt ff «? r? *? «r /y a? f* rj ev rj t * a? a? a? f? aj aj w A? ej aj A7 aj av A? a? .v a? a; a? <v a? rv M w <? » «; <v <v a; M » U A) ^ » r; (V ^ » rj m u « M A' w M 

<free statement> J J « 

££.££ <pointer var i ab I e>C 1q <heap variable>3 # 

££££ sym^ptr 1q symbo I _t ab I e 
££££ my_stack 

10*5 lH£UI=QUIEUI.iUI£flEtlIS 

Four file types are accooimodateds 

L§.fiiki£~~£jLi£& consist of a sequence of entities called JLlQ£Se 
Sys tem-def i ned mappings between lines and stciQas^fi^StiaL exist; 
these may differ depending on the source or destination device of 
the I ineso 

££ia£«£ii££ are special cases of legible files that permit the 
user to control output for matting through the use of pagination* 
spacing and titling procedures (permitted on print files onlyip 
rather than through the use of embedded control characters© The 
user should not directly, embed such control characters in data 
destined for print files* 

&i&&L&«.~£ii££ consist of a linear sequence of SWL variables© 
These variables are not se I f-i dent i f y i ng> so that results of a 
read operation are guaranteed if and only if the sequence of 
types read is the same as the sequence written© 

fii£££.t«.£il§S are special cases of binary files that also permit 
the retrieval (and rewriting) of variables ^directly* through the 
use of a c key*« Results of such a read (or rewrite) operation 
are guaranteed if and only If the obvious (but tediously 

described) type matching holds» 

Files are accessed through £Ile_va£i£b].e£ (cf« 6*7)* which 
are associated with a file by an explicit aaeQ procedure and 
de-associated from a file by an explicit cj.&£e procedure* File 
variables take on as values an undefined record structure whose 
component values specify the kind and current state of the 
associated file* A file spec (cfo 6*7*1) is used to specify 
•Initial 1 values consisting of the actual name of the file and 5 
certain other file attributes* I 

HBLQiQ3 : A file-variable may be assigned to another I 

file-variable of the same type (and only the same type). If thss J 

occurs* and the program attempts use of both file-variables to I 

manipulate the same file, in an interchangable (intermixed) J 
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10«5 INPUT-OUTPUT STATEMENTS 

manner* operations done via one of the file variables will not be 
reflected in the other; and serious errors can occur* (Note that 
the passing of a file variaole by value to a procedure can create 
analogous errors If dual file variable usage is attempted for a 
s i ng I e f i I e e ) 

Input -output statements are used to associate and de-associate 
file variables and actual files* to position files* to transmit 
information to and from files* and to format £HiQ& files* 



<lnput output statements> 



<open state ment> 
<c I ose s t a temen t> 
positioning statements> 
<read~ write statements> 
<format control statements> 



10*5*1 OPEN STATEMENT 



An actual file is inaccessible until It has been associated 
with a file variable© This is accomplished through an open 
statement© 

<open statement> s:= £fl££Q ( <f I I e variable> [* <file spec> 3) 



The open, statement can specify or respecify file attributes 
(including the actual file name) associated with the file 
variable to be used for accessing the file; however* the file 
type can not be respecif ied* 



It is an error to open a file which is already opened© 
10*5* 1*1 Ua£B££i£i£d_A££Ll&Ui£S 



To be pro v I dede 



10*5*2 CLOSE STATEMENT 



The close statement prevents further access to the actual f i le 
until a subsequent open of that file is executed* 



<close statement> ::* j|£ifi&£ ( <f i I e varlable>) 



NCR/CDC PRIVILEGED 



10*0 



SOFTWARE WRITER'S LANGUAGE SPECIFICATION 



10-35 
75/06/09 



Revision 4 June 09> 1975 

10.0 STATEMENTS 

iO.5.3 POSITIONING STATEMENTS 

10,5,3 POSITIONING STATEMENTS 



Positioning statements permit an actual file to be positioned 
at its beginning (through a #£!£§.£ statement)* at its end 
(through a #ia£t statement)* or at some position specified by a 
key associated with a direct file (through a L£§,e£ statement) « 



•<pos i t i on i ng statements> ::« 

#£i££t (<f i le var i able>) 
I #ias£ C <f i I e variable)) 
• #L££g£(<di rect file var i ab I e>* <key value>) 

<dlrect file variable> s:^ <fj|e variable> 

<key value> s:» <integer expression) 

10«5«4 READ-WRITE STATEMENTS 



<read-wr i tc 



s tatements> * t * 
<wrlte 
<wr i te 
<wr i te 
<wr i te 
<wr i te 

<read 
<r ead 

<r ead 
<read 
<read 



line s tat emen t> 
partial line statement> 
b i nary s tatemen t> 
sequential statement> 
direct statement) 

legible s t a tement> 
partial legible statement> 
binary state ment> 
sequential statement) 
dfrect statement) 



10 • 5 . 4 • 1 MLit£-i£aLiiail.LiQ£.StatfiID£Qt 



These statements cause the conversion of value(s) into string 
form and their transmission as a line or as part of a line* 



10#5#4#Itl WRITE LINE STATEMENT 



The write line statement causes the conversion of a value or a 
sequence of values into string form* according to specified 
formats for each of the values* and the transmission of those 

concatenated strings to the specified legible or print file &£ & 

!iQ£« The formatting information is contained within the write 
line statement itself* or is the system-default standard (cf* 
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L0.5-.4.1.1 WRITE LINE STATEMENT 

10#5*4,2). ! 

<write line statement) n« itaui. (<fiie variable)* 
<put element) {><put element)}) 

■10#5o^tlo2 WRITE PARTIAL LINE STATEMENT 

The write partial line statement causes the conversion of a 
value or a sequence of values into string form* according to 
specified formats for each of the values* and the transmission of 
those concatenated strings a£-a_&£L£~fi£_a-liQ£ to the specified 
legible or print file© The formatting information is contained 
within the write partial line statement itself* oris pre-defined 

(Cfe 10e5«4o2)o 

Successive write partial line statements will concatenate 
(left to right) the strings from each succesive write partial 
line statement into the same line of the specified legible or 
print file until the boolean expression, which indicates the 
♦final part of the line* is Jt£ii§o The write partial line 
statement execution for which the boolean expression is time will 
cause both the transmission of the values (put elements) of that 
statement and the line to be ^completed*© 

The program ni I I be in error if a #EUJtfiail£ for a file with the 
(boolean expression) value £«§!&& is followed in execution (for 
the same file) by a #&y£;> #££.£> or a #aa£aact instead of a 
further #£>yi&§Lt* The final #£>u££>aL£ f° r the record must have a 
<booJean expression) vaiue of j£ye or the program is in error. 

<write partial line statement) ::- #£Uf.£aL£ (<file variable) * 

<boolean express i on>; <put element) i *(put element)}) 

10o5#4.2 Ru£_£l£!tt&aJL£ 

Values to be output by write line and write partial line 
statements* rules for their conversion into strings of 
characters* and the sizes and formats of the receiving fields for 
such strings are specified by EUi_£jL£!BflQjL5L» 

<put element) t : » <scalar element) J 

5 <str i ng el ement) } 

! (real element) ! 

J <polnter element >'•' • 

<sca I ar el ement) : j « } 

(scalar expr es s i on) C (sea 1 ar field specifier)] J 

(scalar field specifier) ii« CKfield length)] t*(radix spec)] S 
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,10o5. / 4o2 Put Elements 

fj W W W W W « W M */ W W (V « W fJ W « W ^ W W A/ « -V W W W W « « AJ V « W /L' « W W M rt W « M M M « W W ^ 



<field length> J J s <posi tive integer expression) 

<radix spec) «:» #(<radix expression)) 

<radix expression) :j~ <"an expression whose value 

is a valid radix* cf c 3o2«V> 

<str i ng el ement) * : = 

<string expression) [<strtng field specifier)] 

<string field specifier) ns 
<empty> 
t<r ad i x spec) 

:<field length) C:<radix spec)] 

: < f i e I d length) *<positions/char) C*<radix spec)] 
**:<POsitions/char> £ : <r ad i x spec)] 

<pos i t i o-ns/char) tt& <positive integer expression) 

<real element) *:« <real expression) £<real specifier)! 

<real specifier it* *<radix spec) } <empty> 

{ s <f i e I d length) C : <r i gh t of po i nt)] . 

<right of point) na <non-negat i ve integer expression) 

In general* values specified to be in numeric form are written 
right justified into the specified field* with blank left fill or 
truncation on the left* Values specified to be in string or 
character (alphabetic) form are written left justified into the 
specified field* with blank right fill or truncation on the 
right* 

10c5*4,2*l CHARACTER CLASS OUTPUT 



If the put element is : 

(a) a string without radix spec 

(b) a character without radix spec 

(c) a boolean without radix spec 

(d) an ordinal without radix spec 
Then 

(1) The string value of the expression is placed 
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JLO.5.4.2.1 CHARACTER CLASS OUTPUT 

justified into the field length specified* For strings and \ 

characters* the character from the ASCII character set is ! 

supplied* For booleans the string 'tLUa' °r , £&i££ ff is used* ! 

For ordinals a string identical to the ordinal constant ! 

Identifier corresponding to the ordinal value is used* } 

(2) If no field length is specified* then a field is furnished 1 
equal in length to the value of the string* J 



(3) If the length of the string value is. greater or less than 
the specified field length* then right truncation or right blank 
fill respectively will occur* 

10o5*4*2«2 ^NON-NUMERIC SCALAR WITH RADIX 

If the put element is: 

(a)- a cliaracter expression 

(b) a boolean expression 

(c) an ordinal expression 
then: 

(1) The $iQl§aet function is applied to the value of the 
expression to obtain an integer* 

(2) The value of the integer is expressed in the radix 
specified * is r i ght~ jus t i f i ed in the field length specified* 
with bl ank fill to the left* 

(3) If no field length is specified* then for the put elements 
and radices as listed below* the field length default values are: 

£i£23£n£ Ladix ianaili 

character decimal 4 ' 

char ac te r octal 4 ! 

character hexadecimal 3 S 



boo lean dec i ma I 1 J 

boolean octal 1 I 

boolean hexadecimal 1 J 



ordinal decimal (as for integer elements) J 

ordinal octal (as for integer elements) J 

ordinal hexadecimal (as for integer elements) ! 

(4) If the field length is specified but is shorter than the J 
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10. 5.'?. 2. 2 NON-NUMERIC SCALAR WITH RADIX 

representation of the value then left truncation can occur* 
10o5«4o2o3 STRING ELEMENT WITH RADIX 



Eac 
i ntege 
I nto a 
omi tte 
for a 
- 3) • 
spec I f 
a fie 
numbe r 
the r 
( Trunc 
r epres 
radix 



h en 
r by 
f i 
d* 

char 
T 
i ed 
id 

of 
i ght 
at io 
en t a 
spec 



ar acte 
the $ 
eld o 
then 
ac ter 
hese r 
field 
i s sup 
ch ar ac 

may 
n or 
t i on 
a I so 



r of 

f s 
the 
put- 
epr e 
J eng 
Pile 
te r s 
occ 
b J an 
I eve 
pr es 



the 

ize 

def 
e I em 
sent 
tn* 
d eq 

i n 
ur/ 
K f 
I w 
ent © 



string is individually converted to an 
function* and then placed right justified 

positions/char* If positions/char is 
ault sizes for eacn radix are the same as 
ent (decimal - 4 * octal - 4 * hexadecimal 
ations are placed left justified into the 
or if no field length is furnished* then 
ual in length to positions/char times the 
the string* Truncation or blank fill on 

when the fjeld length is specified© 
ill may also occur at the character 
hen positions/char is specified with a 
) 



XO # 5.4.2#4 REAL ELEMENT 



If only a radix spec is given as the real specifier* than an 
implementation defined form of the internal representation will 
be produced in the specified radixc 

If only a field length is given as the real specifier* or no 
specifi.er is presents then the value of the real expression is 
converted to a standard decimal floating point form* right 
justified in a field of the length specified* with blank left 
fill or left truncation if the length specified is longer or 
shorter than the required space for the standard representation* 

If the real specifier is of the form <fleld lengthXright of 
Point>* then the real expression value is converted to a decimal 
representation of its value which has <rignt of po«nt> digits to 
the right of the decimal point and an explicit decimal point 
between the integer and non-integer parts of the number* If the 
value is negative* then a minus sign will be placed to the left 
of the most significant digit to the left of the decimal point* 

Any excess positions on the left will be blank filled* If 
there are no significant digits to the left of the decimal point* 
then one zero will be placed to the left of the point* with left 
fill of blanks (and optionally the minus sign preceding the zero* 
when the value is negative)* 

Field overflow can cause loss of the minus sign (if present)* 
of high order digits* and of the decimal point* by truncation on 
the left* 
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lo.5.'».2.5 INTEGER ELEMENT 



10*5*4 



INTEGER ELEMENT 



If a scalar field specifier is given which is only a field 
length* then the value of the integer expression is converted to 
a standard decimal radix notation and placed right justified into 
the. field* with blank fill to the lefto If the field length 
given is not long enough to contain all the digits of the value 
of the integer expression* then left truncation of tne high order 
integer- digits occurs* If the integer expression is negative in 
value* then a minus sign precedes the leftmost significant digit 
within the field (out might be a part of left truncation If the 
value is too large) o 

If the scalar field specifier is omitted (empty)* then the 
same process is performed as described in the preceding 
paragraph* but the value is placed right justified into a fieSd 
of 'standard length 8 (which Is macnine and implementation 
dependent) with blanK fill to the left* 

If a scalar field specifier is furnished which contains a 
radix spec* then the integer expression value is converted to a 
standard notation in the radix indicated* and placed right 
justified into the field of specified length* If the field 
length is omitted* then placement is into a ^standard length 1 
field —- which is both machine and implementation dependent and 
radix dependent* with blank fill to the left* Again*, left 
truncation can occuro 

10*5*4*2*6 SCALAR SUBRANGE ELEMENT 



A put element which is a scalar subrange type is 
exactly as the scalar range of which it \s a subrange© 

10*5*4*2*7 POINTER ELEMENT 



hand I ed 



A pointer element may be either a 
pointer* If a radix spec is included in 
then an implementation dependent form 
written in the specified radix system* 



pointer or a relative 
the pointer element* 
of the po i nter will be 



If the radix spec is omitted* then the implementation 
dependent form of the pointer will be written in the radix 10 
system* The form written will contain a system-standard 
indication if the pointer is a relative pointer (or will have a 
differing standard format than a non-relative pointer)* 



In either case* the field si^e for pointer 
will be standard (but will be system-dependent)* 



r epr esentat i ons 
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i e 5 • 4 . 3 Write Binary Statement 

M At *3 « tt tt <V f J *J A/ /V A/ t 'J M AJ AJ *J R7 A/ *V A/ A/ A* W ** A* A* »V Arf K/ A* A/ A* A* «* A/ Arf A# #sf A# AfAfAfA?A*A»A/A#Af*VA? A*A* A?WW^WW«WWWWWW 

10e5o4o3 tfLi£fi-IUa£C£j&JLfl££Gl£Qt 

A write binary statement causes the value of an expression to 

be transmitted to the specified binary file* 

<write binary statement> * x ** #£y£ (<file var i ab I e >p <exp r ess i on> ) 

£2£amEi£ 2 

#&u£ (intermediate^text* symbol ..string) 

io#5t4«4 ii£i££ w S£au£Qtial-Slal£!nsQi 

A write sequential statement causes the value of an expression 

to be transmitted to the specified direct fileo It also assigns 

a value -to the key variable specifying the position on the file 
of the expression written* 

<write sequential s tatemen t> • * 3 #£ki£ (<file variable) > 

<key var i ab i e>* <expr ess i on> > i 

<key variable> : : * <integer variable) 

££&!D£l£3 

#EU£( symboi_f i I ep symbot_key> symbol_va!ue ) ! 

10*5.4.5 ULii£-fii£££t-Stat£IDflfli 

A write direct statement causes the value of an expression to 
be transmitted to the specified direct file at the location 
specified by the key value© The write direct statement does not 
modify the current file position* 

<write direct statement> i * » #Bu£di!l" (<file variable> p 

<key value) ^expression)) J 

<key value) ::® <integer expression) 

#Eiitli£ (symbo l_f i I e* key • symbo l_tab I e_entr y > { 
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10.5.^.6 Read Legible Statement 

10©5©4©6 R£ad-Lsflikis._S£a£sBifia£ 

The read legible statement; #&££* causes that portion of the ! 
next line which will fit left justified in the specified string 
variable to be moved. If the line is less than or equal to the 
length of the string variabSe; the boolean valCie £Lki£ will be 
returned in the boolean variable© If the line is greater than 
the length of the <string variable> part of the line is returned 
in the <string varl able) and the boolean value false is returned 
in the <boo!ean variable)© In both cases; the number of 
characters returned is returned in <no_read>© If only a partial 
line was returned; the remainder may be . obtained through 
subsequent #3££eL3l£ requests© 

An attempt to read beyond the last line causes the boolean 

variable to be set to t£ye; <no_read> to be set to zero; and the 

built-in function #e&£ (<fi!e variable)) to return the boolean { 
value ime© The string variable is unmodified* S 

If a #ag£aa£.l statement which returns £aJL§,£ or £c.ue into the } 

<boolean variable) is sequentially followed by a #aet statement* ! 

then any balance of the current record is bypassed and the #s&£ S 

statement returns the values from the next record of the file* } 

<read legible statement) it* \ 

#fi£l(<file var i ab I e>; <boo I ean var i abl e>; <no_r ead) ; J 

<string variable) ) J 

<string variable) J: a <varfable> { 

<no_read> J:« <integer variable) J 

£&aoi&l£ 

#a&£ (source^f i I e; I as 1 1 i ne; I i ne_l eng th; line_buffer) J 

io.5©4©7 Raad-EaitiaLLaaiblfi-StatamaQt ! 

The read partial legible statement causes that portion of the 
next line which will' fit left justified in the specified string 
variable to be moved© If the line is less than or equal to the 
length of the string variable; the boolean value £m£ will be 
returned in the boolean variable© If the line is greater than 
the length of the <string variable) part of the line is returned 
in the <string variable) and the boolean value £&iS.& is returned 
in the <booiean variable)© In both cases; the number of 
characters returned is returned in <no w read>» If only a partial 
line was returned; the remainder may be ootained through 
subsequent #a££ea£i requests© 
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10»5o^io7 Read Partial Legible Statement 

An attempt to read beyond the last line causes the boolean 

variable to be set to tcu.fi* <no_read> to be set to zero; and the 

built-in function tfeof (<file variable)) to return the boolean 
value t£U2« The string variable is unmodified© 

The program is in error if a SflfitaaLt statement which returns 
£&is.£ into the <boolean variable) is sequential iy followed by a 
Sfiiit or a #£«££&£.£• If the #setB.&L£ statement which returns 
£&i£fi into the <boo lean var iable) is sequentially followed oy a ii 
Sfit statements then the balance of the current record is bypassed 
and the #oe£ statement returns the values from -the next record of 
the f i le© 

<read partial legible statement) ?; s 

&a£.i££LiL( <f i I e var iaDle>*<boolean variable>*<no_read> 9 

<string variable) ) 



naeaaJt 

#2&££&££ {source_f e le> end_Iine# I i ne^I eng th*> I i ne_buf f er ) j J 
accun^str ing { I i ne^buf f er ? I i ne_i ength) ; 
yQtii end^line; 

The read binary statement causes the transmission of a value 
from a binary file to a variable© If the sequence of types read 
is different from the sequence written^ the result is undefined* 
An attempt to read beyond the end of information causes the 
built-in function #£&£ (<file variable)) to return £n,uej> and the 
variable is unmodified* 

<read binary statement) :*= #3Si- (<fil& var i ab I e>* <var i ab I e> ) 

Examelfi' 

#aai .( i ntermed i ate^text# symbo l_s tr i ng ) 
10©5«4.9 Raa^-EaaueaJtial^StsteinaQt 

The read sequential statement causes the transmission of a 
value from a direct file to a variable© It also assigns a value 
to the Key variable specifying a position on the file of the 
value obtained© An attempt to read beyond the end of 'information 
causes the built-in function #&o£(<fiIe variable)) to return £c.u£ 
p and the value of the variable is unchanged© 
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10o5o 4 o9 Read Sequent! a (Statement 

<read sequential statement> *: = #aa.t (<file variables 

<key variable> * <variable>) 2 

• #a£t ( symbo I _f i I e> s yrnbo l_key* symbo l_s tr i ng ) } 

The read direct statement causes the transmission of the value 
associated with the Key from the file to a variable© The type of 
the variable must be the same as the type of the value in the 
write direct statement that associated the value with the key* 
The current* file position is unmodified by this statement© 

<read direct staternent> t : * 5 

#fl£tsii£ C <f i I e variabfe> $ <key value> * <variab!e> ) I 

fiaamala* 

#asJtdiL (symbo l_f i I ep symbo I _keyj> symbol ) J 

10*5,5 FORMAT CONTROL S 

Print files may be formatted into j>aafi& consisting of a 
specified number of lines© The number of lines per page 
(pages i z e ) can be set or reset by the user* Lines are numbered 
from one (1) to #£aaasiZ£« The number of the next line to be 
printed is called the cy££e,Q£ JLiQ£ QUQfe£C» The user can 
interrogate the current line number via the #£y.£iiQ£L function* 
and can use format control statements to exercise direct control 
over pagination and lineation© 

In addition* whenever the number of lines actually printed 
would exceed fiaaaasiza* an end-of-page regimen is invoked* The 
end-of-page regimen consists of either an gjecj, operation (see 
below) or the invocation of a user specified §.Q£i~&f r&acjg, 
E£a£&dU£& (cf*6*7el*l>* 
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10o5.5 FORMAT CONTROL 



<format control statements *:* <page statement> 

<eject statement) 
< 1 i ne s ta temen t> 
<sk i p s tat ement> 

10*5. 5*1 EsSS^StaiarneQt 



The page statement invokes the end~o f -pag e procedure (cf* 
6*7*1*1) directly; If none has been specified for the file* the 
&£i&££ procedure is usedlsee below)., 

<page statement) ::• #&ag§, (<prlnt file variable)) 



10*5*5*2 £ieci^si;<i£sin&Di 



The eject statement issues a conventional page eject and sets 
the current line number of the specified file to one (1)* 

<eject statement) ii= #£j£££ (<print file variable)) 

10.5,5,3 LxQfi.rJLalaaaQi 



The line statement spaces a print file forward to a target 
line number on the same page if the target line number lies 
between the current line number and the page size* If the target 
line number exceeds the page size* then the current line number 
is set to (pages i ze*l ) and the end-of~page regimen is invoked* 

If the target line number is less than or equal to the current 
line number* the current line number is set to ( pages i ze*l ) * the 
end-of-page regimen is invoked* and the current line number is 
tested again? if the target line number lies between the current 
line number and the page size* then the lineation is carried out; 
otherwise* no further action is taken* 

<line statement) :* s # JLiQ&( <pr int file var i ao I e>* < I i ne number)) 

<line number) **** <pos i t i ve i nteger expression) 

The related function #£ULii02 (cf* 11*2*20) may be used to 
find the current line number for a print file* 
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10,5«5»4 Skip Statement 

The skip statement spaces a print file forward either one line ! 

or the specified number of lines* If the new line number would } 

exceed the page size^ the current line number is set to } 

(pagesize*l) and the end -of -page regimen is invoked* J 

< s k i p statement> ss~ I 

#£liie (<print file variable) [;<number of lines>3) J 

<number of lines> : : =» <positive integer expression) ! 
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11.0 SIAHQARQ.£aQ(I£QURES-AIlQ«ESil>lQIIQMS 



Certain standard procedures and functions have been defined 
for the SWL which have been included because of the assumed 
frequency of their use or because they would be difficult or 
impossible to define in the language in a machine-independent 
way* 



1-1.1 mUQABQ-E&QQEQURESL 



11. 1^1 ^TRANSLATE <S* D* T) 

This procedure accepts as arguments the string variables S* D* 
and T* and assigns to D the result of converting the elements of 
S according to the 'translation tabic-* 1 T * by the following 
a I gor i thm ? 

!£{(!<« #am:sjtLl£Qfltti(s) ) and 

c#£yLsi£i§Qaiti(s) <» #s.t£i£Qfl£{2(Q> )) ttjan 

£fi£ i * s l Jta #£U£S£Li£Qa£ilts) £10. 

D( i ) : » tc i + sinJtaafint s( i ) ) > 

£a£§.ajl 

&l£'£ 

"error" I 

i££Q& 

11.1*2 #STRINGREP (V* D* Wt*R3> 

This procedure accepts as arguments* An expression* V* of type 
Integer* real* or boolean) a string variable* Dj an integer 
expression* WJ and an optional integer expression* R« 

The string D takes on the string representation of the value 
of V* in the following manner: 

1. Boolean values are converted to one of the strings "true" or 
"false". 

2. Integer values are converted to W-digit decimal numerals 
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11.1.2 rfSTRINGREP (V* D* WC,R]> 

with leading zeros replaced by blanks* and a minus sign 
preceding the most significant digit for negative values© 

3 • Real values are converted into a string representation which 
assumes the radix 10* as defined for put elements in 
10©5©4*2©4© The parameters to the procedure are: 

V is the ££Sl number to be converted 

D is the string reference for destination of the value 

W is the field width 

1 R is the optional <right of point> specification© 

Blank fill and truncation rules are the same as those given in 
10©5©4©2©4 for L§.ai put elements* 

4© The string resulting from these operations is left extended* 
If necessary* by blanks to match the length o f D * and then 
ass i gned to D© 

11©I©3 #SETPAGr3IZE KPRINT FILE VAR IABLE>* <NUHB£R QF LXNES>> 5 

This procedure sets the page sl^e for the spec i f i ed pr i n t file S 
variable to the value of the integer variable* number of lines© i 

lltl.4 #SETPAGEPRQC UPRINT FILE VARIABLES PROCEDURE REFERENCED 

# 

This procedure sets the end~o f-page procedure for the 
specified print file variable to be the procedure specified© 
This procedure can be invoked by a £>ac[£ statement (cf© 
10©5©5©2)* and will be automatically invoked whenever the current 
line number for the print file exceeds that-file's specified page 
size© See section 6©7©1©1 for end-of-page procedure 
conventions© 

11.2 SIAMQARD-EUtlCIIflliS 

The following standard functions return values of the 
specified type© 
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11.2.1 MBS(X) 

11.2. 1 #ABS(X) 

Computes the absolute value of x The type of the expression* 
x* must either be neaj. or JLQiL£fl££* and the type of the result is 
the type of x« 

llo2e2 #SIGN(X> 

returns the value 1 if x > 0> 

the value if x = 0^ 

or the value -1 if x < 0© 

The type of the expression* x* must be integer or £§,^1* and the 
result is the same type as x* 

11#2#3 #SUCC(X> 

The type of the expression* x* must be scalar or subrange* and 
the result is the successor value of x (if it exists). 

11#2#4 #PRED(X> 

The type of the expression* x* must be scalar or subrange* and 
the result is the predecessor value of x (if it exists)* 

11.2.5 *INTEGER(X> 

Returns the integer representation of the value x * The type 
of the expression* x* must be Qr^iQll* SMO &2Ql§aQ* or £&al» • 
If x is £§ai then the value returned is an integer y of the same 
s I gn as x* such that 

abs(x)-l < abs(y) £ abs(x)* 

If * »s fe&Qi&aQ then zero (0) is returned for £&is.£ and one j 
(1) for try[£ e If x is fitiaL* the value returned is the ordinal J 
number* in the ASCII collating sequence* of x* If x is an } 
ordinal constant* the value returned is the ordinal number of 

that constanto 
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11.2,6 SREAL(X) 

U©2©6 SREAL(X) 

Returns a value of type real that approximates the value of 
the Integer expression* x « Note that $integer($real(x)) does not 
necessarily equal x» 

11©2©7 $CHAR(X) 

x must be an integer expression yielding a value £ x £ 255© 
The value returned is the character whose ordinal number in the 
ASCII collating sequence is x« 

1I©2©8 $STRING(L*St*FILU> 

L is an integer expression* s is a string expression* and fill 
Is a character expression© 

Returns a string value of length I from the string ~r 
subs tr ing s byi 

(a) truncating s on the right iflength of s > I * or 

(b) appending characters on the right if length of s < I© The 
characters appended are blanks* or the character value of 
fill when it is specified© 

11©2©9 #STRLENGTH(X) 

Returns the length of the string x* For a fixed string this 
Is the allocated length* and x may be either a string variable or 
a string type identifier© For a varying string this is the 
maxlength and x may be either a string variable or a string 
type© 

11©2©10 #LQWERBQUND(ARRAY* N) 

Returns the value of the n~th lower bound of the array* where 
the leftmost subscript position is numbered 1© The type of the 
result is the Index type of that. dimension of the array© The 
argument (array) may be either a array variable or an array type { 
identifier© N must be a <constant integer expressions J 
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ll 2oll tfUPPERBOUNDt ARRAY* N) 

11.2.11 #UPPERBQUND(ARRAY* N) 

Returns the value of the n~th upper bound of the arrays where 
the leftmost subscript position is numbered J.* The type of the 
result is the index type of that dimension of the array© The 
argument (array) may oe either an array variable or an array type 
identifier* N must be a <constant integer exp r es s i on>« ! 

11.2.12 #E0F(FILE) 

Returns w the value iLUfi if the end~of-file condition exists for 
the specified file* Returns £alse otherwise© The argument must 
be a file var i ab I e © 

The -current SWL end-of-flle remains operating system 
independents and is defined by the last sequential write of a 
legible* binary* or direct file© Thus* the c£o§.e statement for a 
file being written in a sequential manner will, implicitly also 
write an end-of-file indication (which will be system dependent 
In form* but detected by #ea£ function on a system-Independent ("^) 
basis). V 

Note, that a write direct statement (#BUk&JLc.) * s essentially 
used to modify and update an existing file* Thus* writes done 
with #£ii£jijL£ ' do not change the location which will be 
1 end-of-f i I e* as caused by writing in sequential manner and then 
closing tne file'. 

11.2.13 #C0PR0CID 

Returns the value of type pointer to £&£C£G of the coprocess 
In which it is executed. (See 8.2 for an example in context.) 

11.2.14 #R£L(PQINTER[, PARENTAL]) 
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11.2ol5 «PTR(RELATIVE_P0INTERC^PARENTAL3) 

*■* ** tt & *4 tt At M & tj f>J AJ f* f# r& fj fj *J f*t A* */ «V <V fit At AJ AJ <V'*J AfNO/VAI'MAIMNA/^ArMMMUM^W A*** fJA$tVMf**fAi*4fi3e<*Ate*IW*#*iAi 

11*2*15 #PTR{RELATIVE_P0INTERC>PARENTAL3> 

Is used to convert a relative pointer to a pointer* and is 
required when using a relative pointero It returns a pointer to 
the same type as the object type of the relative pointer* If the 
parental variable is not specified then the default heap is 
used*, If the parental type associated with the relative pointer 
is not equivalent to the type of the parental variable* an error 
r esu I ts * 



£&££ myheap * hS.&& (££R 500 o>£ ia£sa&C> > 

ilSL rptrli> rptr2* rptr3 t ££i (myheap) A iQ££flS£* 

h i myheap* 

*Pt i *ia£sfl£L> 

a*, b* x s iQiSflgLllJ 

cptr* dptr 2 (myheap) *ia£&a££ ' 

«e« ; £&&§.£ h * } 

xs»a+3;e*e 
b:»x+2*a-7} 

allfifiatfi dptr ia h J "get space in heap h lf 
dptr 7 * ?» b ? "put value in allocated variable 1 ' 
ali&£.a££ cptr in h J "get another space in heap h" 
cptr A i= x i "put value in allocated variable" 
rptrl :« #££i(dptr* h) ; 

rptr2 J® #££l(cptr* h) | "record current relative position of 

cptr in h" 

* e • 

aJLi&££££ cptr in h ; "get new variable in heap" 

• * • 9 

££££ cptr in h ; "free space in heap" 

cptr i* #£.££(rptr2* h) ; "point cptr back to another 

remembered variable in- heap h" 

11*2*16 #UPPERVALUE(X) 

Accepts as argument either a scalar type identifier or a 
variable of type scalar* It returns the largest possible value 
which an argument of that type can take on* The type of the 



r esu It is the type of x 
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ll*2ol7 #LOrfERVALUE(X) 



Accepts as argument either a scalar type identifier or a 
variable of type scalar^ It returns the smallest possible value 
which an argument of that type can take on* The type of the 
result is the type of x * 



llt2.18 #PREVIOUS(S*N> 



Accepts as arguments a stack variable* S* and- an expression* 
N* which must yield a no n- negative integer value© The function 
returns a pointer value which designates that element of the 
specified stack which would be the topmost element were fcl pops to 
be -executed on the specified stack* 



He2ol9 #CURPAGESIZE (<PRINT FILE VARIABLE>) 



Returns the print file e s page size as an integer* 



11*2*20 #CURLINQ (<PRINT FILE VARIABLE>) 



Returns the print filers current line number as an integer* 



11*2*21 #CURSTRLENGTH (X) 



Returns the current length {as an integer) of a string* which 
is defined as follows! the current length of a varying string is 
defined to be N whenever its value is a fixed string of length N 
and is defined to be zero whenever its value is the null string* 
the current length of a fixed string is equal to its length* 



11*2*22 SBOOLEAN (X) 



Returns the value £al££ ' f * ffifid 2*0 (where x is always a 
non-negative integer value)* If x m&^ 2 » 1 then the function 
returns the value ttll£« 
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W « // AiVJ W « « /V W « W « W M « « W « W W W W W W M « W W W W W ^ A? M W W W M W ^ W M M W « W W Ai W « 

11.3 BERaESEUIAIIQti-fiEEEHQEUI 



11*3*1 ^LQC(<VARIABLE>) ( 

Returns a pointer to the argument which can be directiy ! 
assigned or compared to any direct pointer type (but not to a { 
relative pointer type} S 

11*3.2 #SIZE<ARGUMENT) 

Returns the number of cells (cfo Section 13.1.1* Cell Type) 
required to contain a variable of the same type as the argument* 
The argument may be either a variable or a type identifier* 

11.3.3 #QFFSET<U*BASE) 

Returns an integer value n which is the offset of the variable 
u in number of ceils from an integral multiple of base cell 
boundary* £ n < base. 

11*3.4 #MALIGNMENT(ARGUMENT* OFFSET* BASE) 

Assigns the" offset and base alignment required for a variable 
of the same type as its first argument to its second and third 
arguments respectively* The first argument may be either a 

variable or a type identifier* 

U •* SISIEIl.QEEEI!lllEMI.EUM£IIQllS.AtlQ-ERQ£EQll&ES 5 

Since many aspects of I/Q are system dependent. the language 
includes facilities for checking and creating systems-dependent 
file-structure delimiters* * The spelling of such facilities 
indicates that dependence; and the identifiers for Cyber-r e I ated 
faci i i ties are distinguished by the prefix f #6'« The Cyber 
related facilities are the creation procedures #&rl2&jr and #&&&£* 
and the checking functions #&£&£.* #&eo,£. and #keai* 
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11.4.1 tf6WE0R (<FILE VARIABLES 

W /tf /*" /tf #rf A* A* *V #V /•-♦ ^ A? /tf ^ ^ /^ /tf /V ^ ^ /^ A/ ^ /* A* ** ** « /^ 

11.4.1 #6WE0ft (<FILE VARIABLES 

The #&&£££ standard procedure writes an c end-o f-r ecor d * as 
denoted in the CYBER system* The indication of. reaching, that 
indicator when reading a file will be detected by use of the 
#6§L2£ function (cf* 11«,4«3)# 

11.4.-2 #6W£0F (<FILE VARIABLES 

The #&&&a£ standard procedure writes an « end-o f-f \ I e fi as 
denoted inthe CYBER system* The indication of reaching that 
indicator when reading a file will be detected by use of the 
#6aat function (cf* ll©4o4). 

11.4*3 #6EQR (<FILE VARIABLES ! 

The #&S&£ standard function returns the boolean value t£U§. if 
the file (In CYBER) is at an * end-of~r ecor d 8 as a result of the 
last read command which contained valid data. ( i ♦ e o * the test 
for an ' end-of -r ecord 8 condition should be made prior to 
perform. ing a read for the further data of the record©) 
Otherwise* the function will return the value taj^sg,© 

11.4.4 #6E0F UFItE VARIABLES i 

The #&£&£ standard function returns the boolean value ^r^a if 
the file (in CYBER) is at an • end-of-f i f e« as a result of the 
last read command which returned valid data of the file; 
otherwise it returns the value fjils&o (i*e«> the test for an 
• end-of~f I I e f condition should be made prior to performing a read 
for further data of the f i I e > 

11.4.5 #6E0I KFILE VARIABLES J 

The #feaai standard function returns the boolean value &£U£ (in 
CYBER) if the last read command giving valid data also returned 
an • end~of~i nf ormat i on • indicator; otherwise it returns the value 
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12*0 CQMEILErllME-EAaUIIES 



Com pile-time facilities are essentially extra-linguistic in 
nature in that they are used to construct the program to be 
compiled rather than having a meaning in the program itselfo 

The facilities consist of the compile-time variable 
declarations* compile-time statements* and macro facilities* 
They generally apply from the point of definition until the end 
of the compilation unit* or until a comp i I e-t f me redefinition of 
the same identifier* The result of processing the text 
containing these facilities must be a properly b I ock-s tructur ed 
comp i I a t i on un i t o 



12el SIAIEHEm-AUQ.&EGLA&AIIQilS 



12*1*1 COMPILE-TIME VARIABLES 

Compi I e-t.i me variables of type integer and boolean may be 
declared by means of the comp i I e-t I me declaration statement* 

<comp i I e-t i me declaration> **» ? y&£ <comp i I e-t i me var spec> 

{*<compiie~tirne-varspec>}?> 
<comp i I e-t i me var spec) :s« 

<identifier 4 i s t > t <comp i I e-t i me type> t » <expr ess i on> 
<compi I e-t ime type> ::» inlfiflfiL " J kafiiaia 

The fol lowing rules apply; 

1* The compile-time declaration statement must appear before 
the use of any of the compile-time variables* The scope of 
the compile-time variable is from the point of declaration to 
the end of the compilation unit* 

2* Compile-time variables may be used within compile-time 
expressions and compile-time assignment statements© 

3* The expression used to initialize a compile-time varlaole 
must be composed only of constants and compile-time 
variables* but excluding identifiers for user-defined 
constants* 
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12ol*l COMPILE-TIME VARIABLES 

4 © The operators defined on com pile-time variables are* 

* - * / mod for type int£a££. 
aa<l P.L X&L Q&1 for type kaai&aQ 
< * > <- >* I* for type iQiSfiSL and booiearj 

5* Identifiers of compile-time variables may not be the same as J 
any otner program identifiers* including macro identifiers© 5 

12*1,2 COMPILE-TIME ASSIGNMENT STATEMENT 

The value of a compile-time variable may be altered by a 
comp i le^ti me ass ignment statement* 

<comp i I e-t i me assignment> ::« ? <variable> :* <expression> ?j 

The following rules apply: 

!• The variable must be a compile-time variable* and the 
expression must be composed only of constants and 
compile-time variables* but excluding user-defined 
constants© 

2« The compile-time assignment statement may appear anywhere in 
the compilation unit* 

12.1,3 COMPILE-TIME IF STATEMENT 

The compile-time if statement is used to make the compilation 
of a piece of source code conditional upon the value of some 
boolean expression* 

<comp I J e-t I me lf> :s* ? i£ <expression> ? ttten <text> 

C? fitif <expression> ? ££t£Q <text>> 
C? £l!§ <text>3 ? if£Q£ 

The following rules apply: 

!• The expression must be a boolean expression composed only of 
constants* and compile time variables* but excluding 
user -defined constants* 

2 • <text> Is a string of source text which is compiled upon the 
value of the conditional expression. The text may contain 
compile time statements** Compile time statements are 
executed* and macro expansion takes place only in the 
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s e I e c t e d t e x t * 

3c The compile time i£ statement may appear anywhere in the 
comp Nation unit© 

4* • The text of a compile time if statement may contain either 
or both macro definitions or compile time variable 
definitions© In either casep the macro definition or the 
definition of the compile time variable will or will not be 
included in the compilation* depending upon the results of 
execution of the compile time if statemente 

? l&L Table.size s intsaaL * * 50* 

Page^size J iQi££gr :~ 1024 ?; 
1£L Table * SlLLSlI C 1 o © Tab I e_s i ze ] g£ ia£sa£L 
? i£ Table^size < 10 ? ifctSQ. 

"might include this procedure call into program." 
Bubblesort (Table) 
? S£JL£ Table^size O 2 * Page^size ? JMq 

15 or call on procedure *treesort* into program 51 
Tr eesor t (Tab I e) 

"choice Zp call on procedure Quicksort in program*" 
Qu i cksor t ( Tabl e ) 
,*■ i£fiQ£l 



12*2 ..MACRQ5L 



A macro definition provides a string of source text which is 
compiled whenever the macro name is encountered by the compiler 
within the scope of the macro definition© 

<macro definition> :: = (M£L& <i dent i f i er>C Kmacro parameter 

list>)3; <text> BlilSt&SLJid 
<macro parameter iist> ::* <j dent i f i er>{>< i dent i f i er>> 

The following rules apply: 

1© The macro definition may appear anywhere in the compilation 

unit* and the scope of the macro name is from the point of 

declaration until a redeclaration of the same identifier as a 
macro© 
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fMMMM^MMWMMMMMM/ 



2-. 



< t e x t > is a string of source text which effectively replaces 

any subsequent occurrences of the macro name within the scope 
of the macro* The text may contain compile-time statements 
and invocations of other macros* but these are evaluated at 
the time 'of substitution of the text — not at the time of 
'declaration* (A macro may invoke itself as a macro; but the 
invocation must be conditional so that when not executed; the 
nesting will cease in the compiler©) 

All occurrences of formal parameters in the macro body are 
replaced by tive cor r espondrhg actua I parameters supplied by 
the macro invocation* The actual parameters are treated 
purely as symbol strings* and the parameter replacement has 
the effect of text substitution! Any macro names appearing 
in the actual parameters are invoked after the parameter has 
been substituted in the body* 



the 



The* actual parameter list fc - w.. w 

surrounded by parentheses* and the parameters 

by commas* Actual parameters ~"~" *~ ~ l 

parentheses or brackets* and no 
within parentheses or brackets* 



macro name and is 

are separated 

may contain no unbalanced 

commas except for those 



4* The identifiers for a macro may not be the same as the 
Identifiers of other parts of the compilation unit* including 
compile time variables* (See 6 below for exception*) 

5* Macro definitions may not be statically nested (in source 

code) but one macro definition may contain an invocation of 

another disjointly defined macro (or of itself* see 3© 
above ) * 

6* The identifiers of the formal parameters of a macro may be 
duplicated in other parts of the compilation unit (outside 
the macro definition) including use as another macro 
identifier* In the latter case it will be recognized as a 
formal parameter and not used to invoke the other macro* 
whenever it appears within the text of the macro definition 
in the source code. 

Exaoi&JL&& 8 

ffl2££a swap (a* b* type^ld)* 

feaaia 

OL temp : type_id; 

temp t & a * 

a J * b* 

b *~ tempj 

m£££flL£Qd> 
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Iff $ $ $ $ II 

swap(xj) y> anxay ciooio* i#.i03.a£ iQiaaaD ; 

Iff # % # # II 

ma£Lfi forgn J £o£ g :« 1 j;o n da ma£L&&Q£i J 
fflSSJlfi forjn ; for j {= 1 ifi n d^ !23££2£Qd > 
BL&&.LSL forKn ; f.Q.r k : * 1 £a n cJo aa££2§.Qd > 
]£*£ n : iQtfiaSL^ eiem : naal i 
El£££& niac ; rCj*k] * s Ck* j J . iBflSLaaad i 

n ? a 27 J "typical choice of array size" 

XaL r* s* t : atra^ Clocn] g>f £§ai j 

X3£ J^ k; g I iQt&£££ l 

I g : forgn 

k :* g ; 
I j t forjn 

e I em * » ; 
i k : f o r k n 

e I em i= e I em + mac 
£&££Q£l J "end of for loop Ik" 
t[gj>j] Js elem 
£&££.ad "end of loop ij" 
£S££Qd "end of loop Ig" 

sad 
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In contrast to the previously discussed aspects of the 
language* the language features discussed In this section are 
data-representation dependent* This is not to imply that 
programs using these features are* in fact* system dependent* It 
is possible to write system independent programs through the 
careful use of representation-dependent features* 

The representation-dependent features are such that use of 
these features may D e dependent upon the compiler's allocation 
algorithms or the hardware * des i gn© The use of- these features is* 
therefore* restricted to procedures declared with the re&deg, 
procedure attribute* 



X3a fiAIA-.XI£££ 

<rep type) jjs <cell type> 

Xcrammed type> 



13*1*1 CELL TYPE 



<cel I type> : s * £&li 

A cell type is a r epr esent at i on-dependent basic type that 

represents the smallest unit of storage that is directly 

addressable by a pointer, A cell* therefore* has the aliaQSd 
attribute* 

Only the operations of assignment and equality test are 
def I ned on a cello 



13*1*2 CRAMMED TYPES 



Through the use of crammed records and arrays* 
memory-dependent structures can be defined wherein the bit-size 
and alignment of eacn element is specified. 

<c rammed type) » i » [ <ma I Ignrnent)] s,r &mm££i <c rammed structure) 
<crammed structure) JJ= <crammed ar r ay> ! <c r ammed record) 

NCR/CDC PRIVILEGED 13,0 



SOFTWARE WRITER'S LANGUAGE SPECIFICATION 



13-2 
75/06/09 



Revision 4 June 09* 1975 

13*0 REPRESENTATION-DEPENDENT FEATURES 
13*1,2 CRAHMED TYPES 



(crammed array) ::» 

1££S^ ^(crammed indices>l o£ <crammed element) 

<crammed indices) ♦:= <crammed index) {^crammed index)} 

(crammed index) t i * (fixed scalar type) 

<crammed record) Ms 

££.£&£! <crammed f i e I d>0 <cr ammed field)} £&££Qd 

<crammed field) n= <identifier list) : (crammed element) 

(crammed element) ::- 

[<.-nal I gnment)] (boolean type) 

[<mal i gnment)] (integer type)£(width>2 

[ (ma I i gnment)] (integer subrange type)£(w i d th>2 

(crammed type) 

(malignment) tt* BSliSLQ&d ( (of f set>£* (base>2> 
(width) *:- (Integer constant) 
(offset) Ma (integer constant) 
(base) t i* (integer constant) 



13c1o2q1 ^iianmeQi 



If a 
a I I oca ted 
boundar y i 
boundary 



variable of crammed type 
on an (offset) rnogf (base) 



on 



is ma I i gned* it will be 
(or an (offset)) ceil 
otherwise* it is allocated on the first available cell 
T f » c r amme d element is rnal Igned; i t w i I ! be. at located 



of the 
will be 



an (offset) mod (base) bit boundary relative to the beginning 



innermost containing structure; if it is not maligned* 
allocated at the next available bit© If (base) is 



it 
not 



Will UC <3tlUl«<2lCU <3 L V. II C IICAl d V (3 I I ClUlC U I C © X • XUfliC/ l-d II 

specified* the (base) of the containing structure is inherited© 

Crammed variables can be passed by reference! crammed elements 
cannot* 

Crammed types are equivalent if* and only if* they are 
equivalent in all conceivable ways* 

Crammed types can conform to one another and to un-crammed 
types (c©f«* Section 5«2«X). 



NCR/CDC PRIVILEGED 



13*0 



. ~ff mj 



SOFTWARE WRITER'S LANGUAGE SPECIFICATION 

75/06/09 
Revision <> June 09* 1975 

13.0 REPRESENTATION-DEPENDENT FEATURES 
13.1.2.2 Width 

13.1.2.2 Misltti 

The width specification defines the bit size of the field. 

£i£&QiG:JL§, : 

i^ES cyber„80„ptr * 

££aaDaed^ nasacd 

"bit 0" invalid : &2fiJ.£<LQ 

"bits 5 -14" segment_num : aaiiaQeci (5) iatSESL C 10 3 

"bits 35-63" word_num : maiiflflfid <35) in^ecier C28I 

13.2 _£IAIEtt£HIS 

The result of an invocation of the ioc function can be 
assigned to any direct pointer type (see 11.3.1). 
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An extended set of machine -dependent features including data 
types* storage attributes* mac nine instructions* and the code 
statement is provided each machine for which SWL will generate 
object code e 

14.1-QAIA-IIEES 

The only operations defined on mach i ne-dependent data types 
are assignment and equality test © 

£aL a : dfiliilJLS' 

b j fcaifcwandj' 

C * &LL&Z £0 ee 63] a£ lll&&* 

d : s#p-#flt#pt> 

E t int#16* 

f : fl#ptj 

dfp s fl#pt#doubie ; 

14*2 MA£UIHE=QEEEtlttEliI-£IQRAfi£-AIIRIflUIES 

« 

In general* the set of operations defined for a data type will 
not be affected by its storage attributes* 

"d^Efttiifiiiaai-axaBBlfi* 

l&L tos : CL££iS£a£3 tiai£wfi£,d^ 
par am : [j Ui&ore] *in£gcj££* 
accurn 1 C s r ::.& C 3 2 3 iai^ae£ 

14*3 _MQE-SIAI£UEtfI 

The use of machine-dependent features is restricted to the 
body of the code statement. 

<code statement> :? E £fid£ ( <machl ne> Xcode body> cod^Qci 
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14,0 MACHINE-DEPENDENT FEATURES 
14*3 CODE STATEMENT 

<code body> s : * <co de>{j> <code>> 
<code> *** <statement> 

}<machine instruction> 



14.'» MACtilUEUUSIELlGIiQfclS 

The format of machine instructions may vary with the 
particular machine© 

<machlne instruction> ::» J < i ns tr uc t i on> 
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